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ABSTRACT 

This  is  a  reference  manual  for  NOR  network  transduction  programs 
NETTRA-PG1,  NETTRA-P1,  and  NETTRA-P2  which  prune  connections  in  a  given 
network,  without  creating  new  connections ,  according  to  the  principles 
discussed  in  the  previous  paper  [l].  Networks  produced  by  these  pro- 
grams are  subnetworks  of  the  original. 
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1.   INTRODUCTION 

This  manual  is.  intended  to  instruct  the  reader  in  the  use  of 
the  FORTRAN  programs  NETTRA-PG1,  NETTRA-P1,  and  NETTRA-P2.   These  programs 
realize  the  algorithms  described  in  detail  in  [1],  NETTRA  -PG1,  -PI,  and 
-P2  are  only  three  out  of  a  whole  system  of  programs  developed  at  the 
University  of  Illinois.   The  generic  name  'NETTRA'  (for  NETwork  TRAnsduc- 
tion)   designates  the  whole  collection  of  programs  comprising  the 
system.  All  of  the  programs  in  the  NETTRA  system  either  transform  or 
assist  in  transforming  networks  of  interconnected  NOR  gates  realizing 
various  functions  of  their  respective  sets  of  input  variables.  By  these 
transformations,  a  large,  non-optimal  network  of  NOR  gates  realizing  one 
or  more  various  functions  can  often  be  reduced  to  a  smaller,  less  expen- 
sive (in  terms  of  the  number  of  required  gates  and  connections,  for 
example),  near-optimal  network  realizing  the  same  function(s).  In 

general,  such  a  transduction  could  involve  a  complete  reorganization 
of  the  network:   the  addition  and/ or  deletion  of  gates;  the  addition  and/ 
or  deletion  of  connections  among  gates ;  and  the  substitution  of  certain 
connections  for  various  others.  However,  the  transduction  procedures 
realized  by  NETTRA-PG1,  -PI,  and  -P2  involve  only  the  deletion  of  redun- 
dant connections  from  a  given  network  (although  the  deletion  of  some 
gates  may  also  occur  incidentally)  -  nothing  is  added  to  the  network, 
and  nothing  is  substituted  into  the  network.   To  emphasize  this  charac- 
teristic, these  three  procedures  are  referred  to  as  the  "pruning  procedures", 


More  specifically   NETTRA-PG1  will  sometimes  be  referred  to  as  the  "pruning 
procedure  using  compatible  sets  of  permissible  functions",  and  NETTRA-P1 
and  -P2  as  "pruning  procedures  obtaining  S-irredundant  networks". 

Pruning  procedures,  being  less  complex  than  most  of  the  other 
transductions,  are  executed  more  quickly  by  the  computer,  though  their 
scope  is  generally  more  limited.   This  characteristic  makes  pruning  proce- 
dures particularly  suitable  for  application  to  large  networks  of  gates 
containing  a  great  deal  of  redudancy  (e.g.,  connections  which  are  really 
unnecessary).  Many  of  the  more  obvious  (to  the  computer,  not  to  the 
casual  observer)  redundancies  are  quickly  eliminated,  allowing  more  power- 
ful transductions  to  concentrate  on  -the  more  subtle  redundancies  which 
may  be  contained  in  the  network. 

Although  the  programs  discussed  here  can  all  be  used  as  general 
pruning  procedures  (i.e.,  given  a  network,  as  many  unnecessary  connections 
as  permitted  by  the  power  of  the  particular  procedure  are  removed),  the 
unique  characteristics  of  two  of  the  procedures  allows  them  to  serve 
additional,  special  purposes  which  are  sometimes  utilized  by  various 
other  transductions.    For  example,  as  a  by-product  of  the  operation  of 
NETTRA-PG1,  a  compatible  set  of  permissible  functions  is  generated  for 
the  resultant  network,  and  this  information  is  directly  made  use  of  by 
another  transformation,  SUBSTI.  Also,  the  pruning  algotithm  in  NETTRA-P1, 
rather  than  being  applied  generally  to  locate  and  remove  unnecessary  con- 
nections from  a  network,  can  be  applied  to  a  specific  connection,  suspected 
of  being  redundant,  in  an  attempt  to  remove  it  from  the  network  (NETTRA-PG1 
does  not  have  such  a  capability) . 


t  The  reader  is  assumed  to  be  familiar  with  the  definitions  presented  in 
[1],  [2]. 


The  next  two  sections,  Sections  2  and  3,  will  discuss  the  programs 
in  greater  detail.  This  will  be  followed  in  Section  k,   by  a  description 
of  the  functions  of  the  subroutines  which  support  the  subroutines  actually 
realizing  the  procedures.  Section  5  outlines  the  preparation  of  input 
for  NETTRA-PG1,  -PI,  and  -P2.  Finally,  in  the  appendix,  a  listing  of  all 
of  the  FORTRAN  programs,  NETTRA-PG1,  NETTRA-P1,  and  NETTRA-P2  will  be 
given . 


2.   PRUNING  PROCEDURE  USING  COMPATIBLE  SETS 
OF  PERMISSIBLE  FUNCTIONS 


This  section  will  discuss  the  NOR -network  transduction  proce- 
dure realized  by  the  FORTRAN  subroutine  MINI2 .   This  subroutine  along 
with  various  support  subroutines  (for  input -output  and  other  special 
functions )  comprise  the  program  NETTRA-PG1. 

The  input  to  the  program  is  a  description  of  a  particular  NOR 
network  under  consideration.   This  description  consists  of  a  set  of  network 
parameters.  The  output  is  a  description  of  the  "pruned"  network  (if  any- 
pruning  was  possible). 

The  entire  program  requires  126K  bytes  of  core  storage,  about 
^1K  bytes  being  occupied  by  the  actual  program  instructions  and  about 
85K  bytes  stored  data. 

The  following  subroutines,  written  in  FORTRAN  IV  for  the  IBM  360/75, 
constitute  the  program  NETTRA-PGl:   MAIN,  PROCIP,  MINI2,  SUBSTI,  OUTPUT, 
and  SUBNET.   Two  system- supplied  timing  routines,  STIMEZ  and  KTIMEZ  are 
also  assumed  to  be  available,  but  if  they  are  not,  their  use  can  be  omitted 
from  the  program,  or  another  suitable  timing  routine  substituted,  without 
harming  the  procedure  itself.   The  functions  of  the  support  subroutine 
MAIN,  OUTPUT,  and  SUBNET  will  be  discussed  in  Section  k. 

The  general  organization  of  the  program  NETTRA-PGl  is  shown  in 
Fig.  2.1.  An  arrow  from  block  i  to  block  j  represents  the  fact  that  the 
subroutine  represented  by  block  i  calls  the  subroutine  represented  by 
block  j. 
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Fig.  2.1   General  organization  of  the  program  NETTRA-PG1. 

2.1  Flowchart  of  the  Subroutine  Realizing  the  Procedure 

The  pruning  procedure  using  compatible  sets  of  permissible 
functions  is  essentially  embodied  in  the  subroutine  MINI2.  The  following 
discussion  of  MINI2  will  assume  a  knowledge  of  the  information  contained 
in  [1]. 

Explanations  of  the  purposes  of  the  main  variables  and  arrays 
appearing  in  the  subroutine  can  be  found  in  the  program  listing  of  MINI2 
in  the  appendix.  However,  it  is  convenient  to  define  some  of  the  variables 
at  this  point  in  order  to  discuss  the  flowchart  of  MINT2  which  appears 
in  Fig.  2.1.1: 


N  is  the  number  of  external  variables,  n,  if  only  uncomplemented 
variables  are  allowed  as  inputs.  If  both  complemented  and  uncom- 
plemented are  available  (i.e.,  n  variables  and  their  n  complements) 
then  N  is  equal  to  2n.  Note  that  this  is  strictly  the  represent- 
ation internal  to  the  program;  for  input-output  purposes  (as 
described  in  Section  5)  N  and  n  are  always  equal. 


R  is  the  number  of  gates  specified  by  the  input  data  to  the 
program.  It  includes  all  gates  declared  to  be  present  by  the 
input  data,  even  though  some  of  them  may  be  isolated  (i.e., 
not  connected  to  other  gates  in  the  network).  Internally,  the 
program  represents  the  gates  1,  2,  ..»,  R  by  the  labels  N+l, 
N+2,  ...,  N+R.   (External  variables  are  labeled  1,  2,  . ..,  N 


internally. ) 


NR  is  equal  to  the  sum  N  +  R.  It  is  often  convenient  to  treat 
both  external  variables  and  gates  in  a  similar  manner.  External 
variables  being  labeled  1,  2,  ...,  N  and  gates  being  labeled  N+l, 
...,  N+R  (internally),  the  number  N+R  is  frequently  required. 

GORDER  is  an  array  containing  a  certain  ordering  of  the  various 
gates  and  external  variable  labels.  In  other  words,  in  the 
locations  GORDER (l),  G0RDER(2),  ...,  GORDER  (NR)  are  stored  the 
numbers  1,  2,  ...,  NR  in  a  certain  order.  The  ordering  represented 
by  the  array  GORDER  satisfies  the  following  criterion:  for  every 
gate  or  external  variable,  i,  which  feeds  another  gate,  j,  gate  j 
precedes  gate  i  in  the  ordering  (for  this  to  be  possible,  the 
network  is  assumed  to  be  loop-free. 

GSMA.LL  is  a  two-dimensional  array  used  to  store  the  intermedi- 
ate and  final  calculated  compatible  sets.   GSMALL  entries  are 
initialized  to  don't-cares  at  the  beginning  of  the  procedure; 
upon  termination  of  the  algorithm,  the  desired  compatible  sets 


t  For  simplicity,  sometimes  just  the  workds  "compatible  sets"  will  be 
used  to  denote  compatible  sets  of  permissible  functions. 


can  be  read  directly  from  GSMALL.  GSMALL  (i,  j)  contains  (or 

rather  will  contain  by  the  end  of  the  procedure)  the  j —  component 

of  the  vector  representing  the  compatible  set  of  permissible 
functions  for  gate  or  external  variable  i. 

In  block  1  of  the  flowchart  (Fig.  2.1.1),  an  ordering  of  gates 
and  external  variables  is  determined  and  stored  in  the  array  GORDER. 

Block  2  represents  an  initialization  of  the  array  GSMALL.  First, 
every  entry  of  GSMALL  is  initialized  to  a  value  representing  don't  cares 
(*'s).   This  is  followed  by  another  more  complicated  initialization  step. 

During  the  main  body  of  the  procedure  (represented  by  blocks  k 
through  1*0  the  compatible  sets  of  permissible  functions  are  determined 
by  assigning  l's  and  0's  to  elements  of  GSMALL.   There  is  usually  con- 
siderable freedom  in  this  assignment  of  l's  and  0's,  and  consequently  a 
large  variety  of  collections  of  compatible  sets  for  the  entire  network 
can  be  produced.  Despite  this  freedom  though,  there  are  certain  assign- 
ments of  l's  and  0's  to  certain  entries  of  GSMALL  which  are  predetermined 
by  the  configuration  of  the  network  and  by  the  algorithm  to  be  applied. 
These  necessary  assignments  are  made  at  this  point  in  the  program  as  part 
of  the  intialization  step  in  order  to  avoid  making  certain  unnecessary 
assignments  (to  particular  elements  of  GSMALL)  later,  as  would  otherwise 
occur. 

Block  3  simply  initializes  a  counter,  the  variable  GCOUNT,  used 
in  the  program  loop  consisting  of  blocks  h   through  ±k. 

Block  k   increments  the  counter,  GCOUNT.   The  program  loop  formed 
by  blocks  k  -  ik   executes  once  for  each  value  of  GCOUNT:  1,  2,  3,  ...,. 

When  GCOUNT  is  incremented  beyond  the  value  NR,  it  is  detected 
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Fie.  2.1.1   Flowchart  of  MINI2. 


in  block  5.  This  is  a  sign  that  the  algorithm  has  finished,  having 
scanned  every  gate  in  the  network,  and  the  program  enters  block  15. 
Otherwise,  the  program  proceeds  to  block  6. 

In  block  6,  the  variable  GCO  is  assigned  the  label  (of  a  gate 
or  external  variable)  contained  in  the  (GCOUM1)^  position  of  the  ordering 
stored  in  the  array  GORDER.  GCO  becomes  the  name  of  the  gate  (or  external 
variable)  about  to  be  scanned  by  the  program. 

If  GCO  happens  to  be  an  external  variable,  no  action  needs  to 
be  taken.  So  in  that  case,  the  control  of  the  procedure  returns  to 
block  h   to  increment  GCOUNT. 

Otherwise,  the  program  continues  to  block  8.  Here  gate  GCO  is 
tested  to  see  if  it  feeds  any  other  gates  in  the  network.  If  it  doesn't, 
and  if  it  is  not  an  output  gate,  then  GCO  is  an  isolated  gate. 

When  an  isolated  gate  is  discovered,  its  input  connections  are 
removed  so  that  other  gates  which  feed  only  isolated  gates  can  also  be 
detected  later  and  their  inputs  removed.   This  operation  is  perfomed  in 
block  9  which  then  returns  control  to  block  h. 

However,  if  GCO  was  not  isolated,  the  program  enters  block  10. 
It  is  in  blocks  10,  11,  12,  13,  and  Ik  where  the  components  of  the  com- 
patible sets  are  actually  determined  (except  for  those  initialized  compo- 
nents). At  this  point,  the  program  focuses  attention  on  gate  GCO. 

During  the  previous  part  of  the  calculation,  the  output  of  gate 
GCO  (0,  1,  or  *)  has  already  been  determined  for  each  of  the  2n  possible 
combinations  of  external  variable  values  (i.e.,  each  of  the  2n  possible 
input  vectors).  Whenever  the  output  of  GCO  is  a  1  for  a  certain  input 
vector,  all  of  the  immediate  successors  of  GCO  (i.e.,  the  gates  and/or 
external  variables  which  feed  GCO)  must  have  an  output  of  0.  Also, 
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whenever  the  output  of  GCO  is  a  0,  at  least  one  of  its  immediate  successors 
must  have  an  output  of  1.  If  the  output  of  GCO  is  *  for  some  input  vector, 
the  outputs  of  its  immediate  successors  are  unrestricted. 

In  block  10,  it  is  the  positions  of  the  0's  in  the  output  of  GCO 
which  are  sought.  Due  to  the  nature  of  NOR  gates,  a  1  appearing  on  any 
of  the  input  lines  to  a  gate  will  cause  a  0  output  of  that  gate.  Such  a 
1  is  said  to  be  a  cover  of  that  0,  and  the  0  is  said  to  be  covered  by 
that  1.  Although  a  0  output  may  be  covered  by  several  1's  (appearing  on 
different  input  lines),  only  a  single  cover  is  actually  required  to 
guarantee  the  0  output. 

In  block  11,  each  of  the  0  components  in  the  output  of  GCO  is 
examined  more  closely.  Checking  the  immediate  successors  to  GCO,  the 
number  of  1  covers  for  each  0  component  is  determined  and  stored.  Some 
0  components  have  only  a  single  1  cover.  In  such  a  case,  the  single  1 
covering  the  0  is  called  an  essential  1.  Any  input  line  (connection) 
carrying  an  essential  1  for  some  input  vector  cannot  be  disconnected 
from  GCO  without  changing  the  required  output  function  of  GCO.  Hence, 
such  connections  are  not  removed  from  the  network. 

However,  the  input  connections  to  GCO  which  do  not  carry  essential 
l's  are  redundant  and  can  be  removed  from  the  network.  This  operation 
is  carried  out  in  block  12.  The  removal  of  these  redundant  input  connec- 
tions must  be  done  serially  though  since  removing  any  input  to  a  gate  may 
cause  new  essential  l's  to  be  created.  And  some  formerly  non-essential 
connections  (i.e.,  connections  with  no  essential  l's)  to  GCO  might  suddenly 
become  essential  connections  (i.e.,  have  one  or  more  essential  l's). 

In  block  13  the  covering  assignments  are  made  for  the  gates  still 
feeding  GCO.  In  other  words,  for  each  0  component  of  GCO  produced  by  a 
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certain  input  vector,  one  of  the  gates  ,  GI  (feeding  GCO)  producing  a  1 

cover  for  that  0  is  selected.  Gate  GI  is  then  required  to  produce  a  1 

th 
output  for  that  input  vector  (say,  the  j —  input  vector),  and  this 

requirement  is  actually  a  restriction  of  the  set  of  permissible  functions 

for  GI.   This  requirement  is  recorded  by  storing  the  value  1  in  the 

location  GSMALL  (GI,  j).  Although  other  1  covers  (from  other  gates 

feeding  GCO)  may  exist  for  that  same  0  output,  they  are  not  "required" 

in  the  same  sense  as  the  1  cover  provided  by  the  selected  gate. 

After  block  13  has  selected  and  stored  (in  GSMALL)  all  of  the 
required  1  outputs  of  the  gates  feeding  GCO,  block  Ik   determines  the 
required  0  outputs  of  the  immediate  successors  (actually,  external  vari- 
ables feeding  GCO  are  ignored)  and  stores  these  requirements  by  inserting 
O's  into  GSMALL  in  the  appropriate  locations.   It  is  easy  to  find  the 
locations  of  these  required  O's.   If  l's  appear  in  GSMALL  (GCO,  j  ), 
GSMALL  (GCO,  j.),  ...,  GSMALL(GCO,  j  )  [i.e.,  if  all  permissible  functions 
for  the  output  of  GCO  must  have  a  value  1  for  the  input  vectors  j..  ,  jp, 
•  ••>  JjJ?  then  O's  must  be  required  in  GSMALL  (S  ,  j-),  ...,  GSMALL  (S  , 
jk);  GSMALL  (Sg,  j-J ,  ...,  GSMALL  {S    3    jR);  ...;  GSMALL  (S^,  j)  ...,  GSMALL 
(S«,  j  );  where  S  ,  S  ,  ...,  S*  are  the  labels  of  the  immediate  successors 
of  GCO. 

After  block  lk ,  the  program  loop  for  gate  GCO  is  completed,  and 
the  program  returns  again  to  block  k   to  scan  the  next  gate. 

After  all  gates  have  been  scanned,  the  program  enters  block  15 
where  a  check  determines  whether  or  not  there  has  been  any  improvement 


t  If  the  0  is  found  to  be  covered  by  an  external  variable,  no  1  cover 
is  selected. 
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in  (the  cost  of)  the  network.  If  not,  a  return  is  made  to  the  calling 
subroutine.  However,  if  there  has  been  some  alteration  of  the  network, 
varius  arrays  which  store  parameters  and  certain  lists  associated  with 
features  of  the  structure  of  the  network  must  be  updated.  Finally  after 
the  completion  of  these  housekeeping  chores,  the  return  to  the  calling 
subroutine  is  made. 

2.2  Use  of  the  Generated  Compatible  Sets 

As  previously  mentioned,  after  an  application  of  the  suboutine 
MINI2  to  a  network,  not  only  have  some  of  the  former  connections  (and 
perhaps  gates)  of  the  network  been  deleted,  but  also  compatible  sets  of 
permissible  functions  for  the  remaining  gates  have  been  calculated  and 
stored  in  memory  (the  array  GSMA.LL).  To  take  advantage  of  this  by-product, 
another  transduction  procedure,  realized  by  the  subroutine  SUBSTI,  is 
immediately  applied  to  the  network  produced  by  MINI2. 

2.2.1  Function  Substitution  Procedure 

SUBSTI  is  quite  simple;  it  merely  tries  to  substitute  the  outputs 
of  a  gate,  GI,  by  the  combined  outputs  of  other  gates  or  external  variables 
in  the  network.  If  it  succeeds,  the  gate  GI  can  be  removed  completely 
from  the  network. 

A  third  subroutine,  PROCIP,  controls  the  calling  sequence. of  the 
two  subroutines  MINT?  and  SUBSTI.  A  flowchart  of  PROCIP  is  shown  in  Fig. 
2.2.1.1. 

PROCIP  is  called  by  MAIN.  If  the  appropriate  flag  has  been  set 
by  MAIN,  PROCIP  will  always  bypass  the  calling  of  SUBSTI  and  loop  around 
in  blocks  1,  2,  and  3  of  the  flowchart  until  the  network  can  no  longer  be 
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improved  by  MENI2.   If  the  flag  has  not  been  set,  PROCIP  will  alternate 
calls  of  MTNI2  and  SUBSTI  until  no  further  improvement  of  the  network 
can  be  made.   The  flag  is  tested  in  block  2. 


START 


1 


CALL 
KENI2 


CALL 
SUBSTI 


Fig.  2.2.1.1  Flowhart  of  PROCIP 


An  example  of  the  type  of  transduction  performed  by  SUBSTI 
is  shown  in  Fig.  2.2.1.2  (a)  and  (b).   Suppose  the  network  in  (a)  resulted 
from  the  application  of  MENI2  and  the  compatible  sets  have  already  been 
calculated.  Assume  the  sets  of  permissible  functions  for  gates  I,  J  and 
Z     are  (in  vector  notation  defined  in  [2])  respectively:   (l**0110*), 
(*0*00101),  and  (1*10100*).  Both  of  the  outputs  from  J  and  Jg  have 
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Fig.  2.2.1.2  Example  of  transduction  performed  by  SUBSTI. 
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necessary  O's  in  the  same  positions  as  gate  I,  and  together  the  ouputs 
from  J1   and  Jp  cover  all  of  the  same  positions  covered  by  the  l's  of  I. 
So  obviously,  the  combined  outputs  of  J  and  J  can  be  substituted  for 
the  output  of  I.   This  is  done  by  SUBSTI,  resulting  in  (b). 

After  SUBSTI  has  replaced  one  gate  by  the  outputs  of  other  gates 
in  the  network,  it  immediately  returns  to  PROCIP  for  another  application 
of  MINT2  to  the  network.  The  reason  SUBSTI  does  not  continue  trying  to 
remove  further  gates  is  that,  after  one  gate  is  removed,  a  considerable 
amount  of  stored  data  (e.g.,  the  compatible  sets  of  permissible  functions) 
must  be  updated  -  a  job  SUBSTI  is  not  equiped  to  do. 

2.2.2  Flowchart  of  Subroutine  SUBSTI 

The  procedure  realized  by  the  subroutine  SUBSTI  is  really  quite 
simple.  Each  (non-output)  gate,  I,  is  examined  in  turn,  and  for  each 
one  the  program  attempts  to  form  a  group  of  gates  or  external  variables 
(stored  in  the  array  named  "SETOFJ")  such  that:   (l)  each  gate  (or 
external  variable)  in  the  group  has  in  the  vector  representation  of  its 
compatible  set  of  permissible  functions  O's  in  all  of  the  positions  as 
gate  X;  aM  (2)  fOT  e.ery  X  appear  ta  the  .eetor  represent  of 
gate  l's  compatible  set  of  permissible  functions,  at  least  one  gate  (or 
variable)  in  the  group  must  have  a  1  in  the  same  position. 

Once  such  a  gate  I  and  group  SETOFJ  has  been  found,  the  outputs 
of  each  of  the  gates  and  external  variables  are  connected  to  each  of  the 
gates  fed  by  I.  Then  gate  I  can  be  completely  disconnected  from  the  net- 
work without  causing  any  change  in  the  output  functions  of  the  network. 

The  flowchart  of  SUBSTI-  appears  in  Fig.  2.2.2.1. 
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START 


I  =  N+M 


RETURN 


1  =  1  +  1 


CONNECT  GATES   IN 
SETOFJ  TO  GATES 
FORMERLY  FED  BY  I 


IS 

ISOLATED, 
AND  NON- 
.OUTPU1 

YES 


NO 


DISCONNECT 
I  FROM 
NETWORK 


J 

HAVE  AT 
LEAST  ONE  1 
IN  COMMON 
.WITH  I 

NO 


ADD  J 
TO 
SETOFJ 


DETERMINE 
NECESSARY  l*s 
lAND  O's   IN  TH3 
OUTPUT  OF  I 


J=0 


J=  J+l 


YES 


Fig.  2.2.2.1  Flowchart  of  subroutine  SUBSTI. 
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2.3  Examples  for  NETTRA-PG1 

Having  PROCIP  bypass  the  use  of  the  substitution  procedure 
contained  in  subroutine  SUBSTI,  the  printout  obtained  during  the  solution 
of  a  typical  problem  by  NETTRA-PG1  is  shown  in  Fig.  2.3.1.  The  original 
network,  as  specified  in  the  beginning  of  the  printout  (Fig.  2.3.1  (a)), 
consists  of  26  gates  and  102  connections  and  realizes  a  single  5-variable 
output  function.  Only  uncomplemented  variables  are  specified  as  being 
available  as  inputs  to  the  network,  but  this  has  no  effect  on  the  pruning 
process. 

Following  this  information  is  printed  a  complete  truth  table  (b ) 
showing  the  output  of  every  gate  in  the  original  network  for  every  pos- 
sible input  combination.  Note  that  it  is  gate  1  which  realizes  the  output 
function  of  the  network. 

Next  appears  a  description  of  the  configuration  of  the  network 
(c).  Each  gate  is  listed  along  with  the  gates  and/ or  external  variables 
which  are  its  inputs.  The  level  numbers,  which  can  also  be  seen  in  (c), 
will  be  discussed  later  in  Section  5«3. 

This  network  is  then  transformed  by  NETTRA-PG1  which  repeatedly 
performs  the  pruning  procedure  of  MENI2  on  the  network  until  further 
pruning  becomes  impossible  (remember,  the  substitution  step  is  being 
bypassed). 

The  truth  table  (note  that  the  outputs  for  disconnected  gates 
are  shown  as  all  l's)  and  network  configuration  for  the  pruned  network 
finally  obtained  by  NETTRA-PG1  are  given  in  (d)  and  (e),  respectively. 
The  derived  network,  found  in  .20  seconds,  consists  of  20  gates  and  52 
connections . 
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****  5  VAR.,  EXAMPLE  1 


HEX=1+FA295F6 


NUMBER  OF  VARIABLES  .=   5 

NUMBER  OF  FUNCTIONS  =   1 

COST  COEFFICIENT  A  =  100 

B  =   1 

—  -  UNCOMPLEMENTED  VARIABLES  3C 

ORIGINAL  NETWORK   C0ST=26l02 


(a)  Heading  information  and  network  parameter. 


Fig.  2.3.1  Printout  obtained  from  NETTRA-PGl  for  a  sample  problem. 
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TRUTH  TABLE 

XI  =00000000000000001111111111111111 

X2  =  00000000111111110000000011111111 

X3  =  00001111000011110000111100001111 

xh  =  00110011001100110011001100110011 

X5  =  01010101010101010101010101010101 
1=01001111101000101001010111110110 

2  =  10000000000000000000000000000000 

3  =  10100000000000000000000000000000 
^  =  11000000000000000000000000000000 

5  =  00110000000000000000000000000000 

6  =  10000000100000000000000000000000 

7  =  00000000010000000000000000000000 

8  =  10100000101000000000000000000000 
9=00010000010100000000000000000000 

10  =10001000000000000000000000000000 

11  =00000000000010000000000000000000 

12  =  11001100000000000000000000000000 

13  =00000000010011000000000000000000 
Ik   =10000000000000001000000000000000 

15  =00000000000000000100000000000000 

16  =  00100000000000000010000000000000 

17  =00000000000000000000100000000000 

18  =  1  0  1  0  1  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 

19  =00000000000000000010101000000000 

20  =10000000100000001010000010000000 

21  =  00000000000010000000101000001000 

22  =11111111000000001111111100000000 

23  =11110000111100001111000011110000 
2k   =11001100110011001100110011001100 

25  =10101010101010101010101010101010 

26  =00000000000000010000000000000001 


(b)   Truth  table  for  original  network. 
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GATE 


LEVEL 


FED  BY 


1 

/  V 

2 

3 

5 

7 

9  11 

2 

/  2/ 

XI 

X2 

X3 

Xk 

X5 

3 

/  2/ 

XI 

X2 

X3 

X5 

k 

/  3/ 

XI 

X2 

X3 

Xk 

5 

/  2/ 

XI 

X2 

X3 

k 

6 

/  3/ 

XI 

X3 

Xk 

X5 

7 

/2/ 

XI 

X3 

xk 

k 

5 

8 

/  3/ 

XI 

X3 

X5 

9 

/  2/ 

XI 

X3 

k 

8 

10 

/  3/ 

XI 

X2 

xk 

X5 

11 

/  2/ 

XI 

Xk 

X5 

6 

10 

12 

/  3/ 

XI 

X2 

xk 

13 

/  2/ 

XI 

Xk 

6 

12 

Ik 

/  3/ 

X2 

X3 

xk 

X5 

15 

/  2/ 

X2 

X3 

xk 

k  Ik 

16 

/2/ 

X2 

X3 

X5 

Ik 

17 

/2/ 

X2 

Xk 

X5 

10 

1^. 

18 

/3/ 

XI 

X2 

X5 

19 

/2/ 

X2 

X5 

Ik   18 

20 

/  3/ 

X3 

Xk 

X5 

21 

/  2/ 

xk 

X5 

10 

20 

22 

/  3/ 

X2 

23 

/  3/ 

X3 

2k 

/  3/ 

xk 

25 

/  3/ 

X5 

26 

/  2/ 

22 

23 

2k 

25 

13  15  16  17  19  21  26 


(c)   Configuration  of  original  network. 
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NETWORK  DERIVED  BY   PROCIP 

TIME  ELAPSED  =  20      CENTISECONDS 


TRUTH  TABLE 

XI  =0000000000000000111111111  1111111 
X2  =  00000000111111110000000011111111 
X3  =  0  0  0  0  1  1  1  1  0  0  0  0  1  1  1  1  0  0  0  0  1  1  1  1  0  0  0  0  1  1  1  1 
xk  =  00110011001100110011001100110011 
X5  =  0101  01  0  1  01010  10  1*  0101010101010  101 
1=01001111101000101001010111110110 

2  =  11111111111111111111111111111111 

3  =  10100000000000000000000000000000 
UllOOllOOOOOOOOOOOOOOOOOOOOOOOOOO 

5  =  11111111111111111111111111111111 

6  =  11110000111100001111000011110000 

7  =  11111111111111111111111111111111 

8  =  10101010101010101010101010101010 
9=00010000010100000000000000000000 

10  =11111111000000001  111111100000000 

11  =  11111111111111111111111111111111 

12  =  11111111000000001111111100000000 

13  =  00000000000011000000000000000000 
ik   =10000000100000001000000010000000 

15  =  00000000000000000100000000000000 

16  =  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  l  1  l  1  l  l 

17  =11111111111111111111111111111111 

18  =  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 

19  =00000000000000000010101000000000 

20  =11110000111100001111000011110000 

21  =00000000000010000000000000001000 

22  =  11111111000000001111111100000000 

23  =11110000111100001111000011110000 
2k   =11001100110011001100110011001100 

25  =  10101010101010101010101010101010 

26  =  00000000000000010000000000000001 


(d)  Truth  table  for  pruned  network. 
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GATE  . 

.  LEVEL 

FED  BY 

1 

/  V 

3  9  13  15  19 

2 

/  V 

3 

/2/ 

XI  X2  X3  X5 

k 

/  3/ 

XI  X2  Xk 

5 

/  1/ 

6 

/  3/ 

X3 

7 

/  V 

8 

/  3/ 

X5 

9 

/  2/ 

XI  X3  k    8 

10 

/3/ 

X2 

11 

/!/ 

12 

/3/ 

X2 

13 

/  2/ 

XI  Xk     6  12 

lk 

/  3/ 

X3  Xk   X5 

15 

/2/ 

X2  X3  Xk     k  lk 

16 

/  1/ 

17 

/  V 

18 

/  3/ 

XI 

19 

/2/ 

X2  X5  lk   18 

20 

/3/ 

X3 

21 

/2/ 

Xk   X5  10  20 

22 

/3/ 

X2 

23 

/  3/ 

X3 

2k 

/3/ 

Xk 

25 

/3/ 

X5 

26 

/2/ 

22  23  2k   25 

*  A  NETWORK  DERIVE! 

BY  FROCIP 

COST= 

20052. 

(e)  Configuration  of  pruned  network. 
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NETWORK  DERIVED  BY  PROCTP 

TIME  ELAPSED  =  82     CEMTSECONDS 


TRUTH  TABLE 

XI  =  00000000000000001111111111111111 

X2  =  0  0  0  0  0  0  0  0  1  1  1  1  1  1  1  1  0  0  0  0  0  0  0  0  1  1  1  1  1  1  1  1 
X3  =  0  0  0  0  1  1  1  1  0  0  0  0  1  1  1  1  0  0  0  0  1  1  1  1  0  0  0  0  1  1  1  1 
Xk  =00110011001100110011001100110011 
X5  =  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1  0  1 
1=01001111101000101001010111110110 

2  =  11111111111111111111111111111111 

3  =  101000000000000000  00000000000000 
^  =  11001100000000000000000000000000 

5  =  11111111111111111111111111111111 

6  =  11111111111111111111111111111111 
7=11111111111111111111111111111111 
8  =  11111111111111111111111111111111 

9=00010000010100000000000000000000 
10  =11111111111111111111111111111111 

11  =  11111111111111111111111111111111 

12  =  11111111111111111111111111111111 

13  =  00000000010011000000000000000000 

llf  =  1  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0 

15  =00000000000000000100000000000000 

16  =  11111111111111111111111111111111 

17  =11111111111111111111111111111111 

18  =11111111111111110000000000000000 

19  =00000000000000000010101000000000 

20  =11111111111111111111111111111111 

21  =00000000000010000000100000001000 

22  =  11111111000000001111111100000000 

23  =  11110000111100001111000011110000 
2k   =  1  1  0  0  1  1  0  0  1  1  0  0  1  1  0  0  1  1  0  0  1  1_0  0  1  1  0  0  1  1  0  0 

25  =1010101010101010101010  1010101010 

26  =00000000000000010000000000000001 

(a)  Truth  table  for  transformed  network. 

Fig.  2.3.2  Printout  of  Final  Result  Obtained  When  NETTRA-PGl  Uses  Both 
Pruning  and  Substitution. 
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GATE  . 

.  LEVEL 

FED  BY 

1 

/  V 

3  9  13  15  19  21  26 

2 

/  V 

3 

/2/ 

XI  X2  X3  X5 

k 

/  3/ 

XI  X2  Xk 

5 

/  1/ 

6 

/I/ 

7 

/  V 

8 

/V 

9 

/  2/ 

XI  X3  k   25 

10 

/  1/ 

11 

/  V 

12 

/  V 

13 

/  2/ 

XI  Xk     k  Ik 

Ik 

/  3/ 

X3  Xk   X5 

15 

1*1 

X2  X3  Xk      k  Ik 

16 

1   1/ 

17 

/  V 

18 

/  3/ 

XI 

19 

/2/ 

X2  X5  Ik   18 

20 

/I/ 

21 

/  2/ 

Xk   X5   ^  Ik 

22 

/  3/ 

X2 

23 

/  3/ 

X3 

2k 

/  3/ 

X^ 

25 

/  3/ 

X5 

26 

/  2/ 

22  23  2k   25 

*  A -NETWORK  DERIVED 

BY  PROCIP 

COST= 

150V7. 

(b)   Configuaration  of  transformed  network. 
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It  should  be  noted  that  there  are  several  duplicate  gates  (i.e., 
gates  which  have  sets  of  inputs  identical  to  other  gates  in  the  network) 
in  the  pruned  network  of  Fig.  2.3.1  (e)  (in  fact,  there  are  5  such  super- 
fluous gates). 

If  the  initial  network  described  Fig.  2.3.1  (a),  (b)  and  (c)  is 
again  transformed  by  NETTRA-PG1  but  which,  in  this  case,  utilizes  the 
substitution  procedure  of  SUBSTI,  then  the  printout  obtained  for  the 
transformed  network  will  appear  as  in  Fig.  2.3.2.   The  truth  table  for 
this  resultant  network  appears  in  Fig.  2.3.2  (a),  and  the  network  configu- 
ration, consisting  of  only  15  gates  and  ^7  connections,  is  shown  in  Fig. 
2.3.2  (b).  Note  that  all  duplicate  gates  have  been  removed  by  the  substi- 
tution process  and  that  none  remain  in  the  final  network. 
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3.   PRUNING  PROCEDURES  OBTAINING  S-IRREDUNDANT  NETWORKS 

The  procedure  for  pruning  redundant  connections  using  compatible 
sets  of  permissible  functions  (CSPF)  described  in  Section  2  is  an  efficient 
procedure  because  it  considers  each  gate  in  the  network  only  once.  Another 
advantage  is  that  the  procedure  may  be  used  to  remove  redundant  connections 
as  a  by-product  in  the  calculation  of  CSPF's  (this  calculation  is  also  required 
in  other  transduction  procedures  -  for  details  see  [3],  [h],    [5],  [6],  [7]  and  [8 
This  procedure,  however,  is  not  powerful  enough  to  always  produce  a  network 
without  any  S -redundant  connections  even  with  repeated  application  of  this 
procedure.  An  S -redundant  connection  in  a  network  is  defined  as  the  con- 
nection without  which  alone,  the  network  still  realizes  the  same  specified 
output  funtion(s).  A  network  without  any  S-redundant  connections  is  called 
an  S-irredundant  network.   This  section  discusses  two  procedures  which 
can  obtain  an  S-irredundant  network.   The  first  procedure  realized  by  the 
FORTRAN  subroutine  RDTCNT  is  based  on  the  concept  of  the  0  -  fixed  maximum 
set  of  permissible  functions  (OFMSPF)  while  the  second  procedure  realized 
by  the  FORTRAN  subroutine  PROCI  is  based  on  the  concept  of  the  1  -  fixed 
set  of  permissible  functions.  These  concepts  are  discussed  in  detail  in 
[1].   Subroutines  RDTCNT  and  PROCI  along  with  various  support  subroutines 
(for  input-output  and  other  special  functions)  comprise  the  programs 
NETTRA-P1  and  NETTRA-P2  respectively. 

Similar  to  the  program  NETTRA-PG1,  the  input  to  programs  NETTRA-Pl 
and  NETTRA-P2  is  a  description  of  a  particular  NOR  network  under  consideration. 
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This  description  consists  of  a  set  of  network  parameters.   The  output  is 
a  description  of  the  "pruned"  network  (if  any  pruning  was  possible). 

The  entire  NETTRA-P1  program  requires  122K  bytes  of  core  storage, 
about  38K  bytes  being  occupied  by  the  actual  program  instructions  and 
about  85K  bytes  being  occupied  by  the  stored  date.  For  NETTRA-P2,  these 
figures  become  123K  bytes,  38K  bytes,  and  85K  bytes  being  occupied  by  the 
entire  program,  the  actual  program  instruction  and  the  stored  data,  respec- 
tively. 

The  following  subroutines,  written  in  FORTRAN  IV  for  the  IBM 
360/75,   constitute  the  program  NETTRA.-P1:   MAIN,  RDTCNT,  OUTPUT  and 
SUBNET.  NETTRA-P2  consists  of  the  same  subroutines  except  that  subroutine 
RDTCNT  is  replaced  by  subroutine  PROCI.   Two  system- supplied  timing 
subroutines,  STIMEZ  and  KTIMEZ,  are  also  assumed  to  be  available,  but 
if  they  are  not,  their  use  can  be  omitted  from  the  programs,  or  another 
suitable  timing  routine  substituted,  without  harming  the  procedures 
themselves.   The  functions  of  the  support  subroutines  MAIN,  OUTPUT  and 
SUBNET  will  be  discussed  in  Section  k, 

3.1  Procedures  and  Flowcharts 

The  pruning  procedure  using  the  0  -  fixed  maximum  set  of 
permissible  functions  is  essentially  performed  by  the  subroutine  RDTCNT, 
whereas  the  procedure  using  the  1  -  fixed  maximum  set  of  permissible  func- 
tions by  the  subroutine  PROCI.   The  following  discussion  of  RDTCNT  and 
PROCI  will  assume  a  knowledge  of  the  information  contained  in  [1], 

Explanations  of  the  purposes  of  the  main  variables  and  arrays 
appearing  in  the  subroutines  can  be  found  in  the  respective  program 
listings  in  the  appendix. 
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PROCEDURE  FOR  OBTAINING  S-IREEDUNDANT  NETWORKS  BASED  ON  OFMSPF 

Step  1.   Initialize 

Initialize  the  array  for  the  temporary  truth  table  to  contain 
all  zeros. 

Call  UNNECE  (an  entry  point  in  subroutine  SUBNET)  to  remove 
all  unnecessary  connections,  i.e„,  the  connections  which  do  not  lead  to 
any  output  gate  of  the  network. 

Set  KEY=0.   KEY  is  a  variable  indicating  whether  any  connection 
is  removed  during  the  current  application  of  the  procedure. 

Step  2.  Selection  of  Gates 

Select  a  gate,  GJ,  according  to  the  order  of  gate  levels,  i„e., 
gates  in  a  higher  level  are  selected  prior  to  gates  in  a  lower  level  (the 
output  gate(s)  whose  output (s)  is  not  connected  to  any  gates  is  assigned 
to  the  first  level).  If  all  gates  have  been  considered,  go  to  step  7. 

Step  3.  Selection  of  Input  Connections 

Select  an  input  connection  of  gate  GJ.  Let  this  connection  be 
GIGJ  indicating  that  the  connection  is  the  one  from  a  gate  or  an  external 
variable,  GI,  to  gate  GJ.  The  connection  with  the  smallest  GI  is  selected 
first. 

If  all  input  connections  of  gate  GJ  have  been  considered,  go  to 
step  2. 

Step  k.      Calculation  of  OFMSTF 

k  -  1.  List  all  essential  ones  in  GIGJ.  An  essential  one  in  a 
connection  GIGJ  is  a  coordinate  such  that  the  corresponding  coordinate 
is  the  output  of  gate  GI  is  one  and  all  corresponding  coordinates  in 
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other  inputs  of  gate  GJ  are  zeros.  If  there  is  no  such  essential  ones 
in  GIGJ,  go  to  step  6. 

k  -  2.  Using  the  temporary  array  for  the  truth  table  with  the 
above  listed  coordinates  for  gate  GJ  changed  to  1,  update  these  coordinates 
for  those  gates  which  are  successors  of  gate  GJ. 

k  -  3*  Compare  the  required  output  functions  with  the  updated 
ones  for  the  coordinates  listed  in  step  h  -  1.  For  any  coordinate  such 
that  the  corresponding  coordinate  for  a  specified  output  function  does 
not  contain  the  updated  corresponding  coordinate  of  this  output  gate, 
this  coordinate  of  the  OFMSPF  for  connection  GIGJ  is  1.  If  there  is  no 
such  1-coordinate  in  the  OFMSPF  for  connection  GIGJ,  go  to  step  5» 

k  -  k.     Rest  the  temporary  array  for  the  truth  table  to  contain 
all  zeros,  and  then  go  to  step  3. 

Step  5.  Update  Truth  Table 

Update  truth  table  for  all  successor  gates  in  gate  GJ  by  copying 
the  contents  in  the  temporary  array  into  the  array  for  the  truth  table 
for  those  coordinates  listed  in  step  k  -  1. 

Step  6.  Remove  Connection 

Disconnect  connection  GIGJ,  i.e.,  the  connection  from  GI  to  GJ. 
Set  KEY=  1  and  then  go  to  step  3. 

Step  7.  Update  Related  Tables  and  Return 

If  KEY  equals  to  1,  update  the  tables  storing  the  information 
on  the  topology  of  the  network  (e.g.,  successor  table,  predecessor  table) 
by  calling  subroutine  SUBNET. 

Return  to  the  calling  subroutine  (MAIN  in  NETTRA-Pl). 
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According  to  the  above  procedure  each  connection  is  examined 
only  once.   Therefore  after  one  application,  there  may  exist  S-redundant 
connections  which  were  not  S-redundant  at  the  time  when  they  had  been 
examined  but  became  S-redundant  due  to  the  elimination  of  other  S-redun- 
dant connections.  In  order  to  produce  a  S-redundant  network,  this  proce- 
dure should  be  called  repeatedly  until  no  S-redundant  could  be  found 
during  the  last  call.  Another  way  to  do  this  is  to  modify  the  above 
procedure  to  make  it  repeat  until  no  S-redundant  could  be  found  during 
the  last  repetition.   The  subroutine  RDTCNT  is  written  according  to  the 
second  approach.  In  other  words,  in  the  actual  procedure  realized  by 
subtoutin  RDTCNT  the  following  step  7  is  used. 

Step  7.  Update  Related  Tables  and  Repeat 

If  KEY  equals  to  1,  update  the  tables  storing  the  information 
on  the  topology  of  the  network  (e.g.,  successor  table,  predecessor  table 
and  etc.)  by  calling  subroutine  SUBNET,  and  go  to  step  1;  otherwise 
return  to  the  calling  subroutine  (MAIN  in  NETTRA-Pl). 

The  flowchart  of  this  procedure,  realized  by  FORTRAN  subroutine 
RDTCNT,  is  shown  in  Fig.  3.1.1. 
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ENTRY 


CALL  UNNECE  TO  REMOVE  ALL 
UNNECESSARY   CONNECTIONS.  SET  KEY =  0 


LEV=LEVM   (NUMBER  OF  LEVELS) 


LEV  =  LEV  -  1 


<^  LEV<  0  ^>^ 


YES 


EXHAUST 


NO 


.TED * . 

X    SELECT  ONE  GATE.GJ  IN  LEVEL  LEV  > 


EXHAUSTED. 


SELECT  AN  INPUT  CONNECTION  GIG J  OF 
GJ  (FROM  GI  TO  GJ) 


<T  LIST  ALL  ESSENTIAL  l's  IN  GIGJ  ^>  NQ  AM 


WITH  THESE  COORDINATES  OF  GJ  CHANGED  TO  1 
UPDATE  THESE  COORDINATES  FOR  GATES  FED  BY 
GJ  (USING  TEMPORARY  ARRAY) 


DIFFER  EN1 


m. * 

X  COMPARE   OUTPUT  FUNCTIONS  WITH  UPDATED   ONES   > 


SAME 
« 


DISCONNECT  THE  CONNECTION  GI  TO  GJ  SET  KEY  =  1 


Fig.  3.1.1  Flowchart  of  subroutine  RDTCNT. 
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PROCEDURE  FOR  OBTAINING  S-IRREDUNDANT  NETWORKS  BASED  ON  1FMSPF 

Step  1.  Initialize 

Initialize  the  array  for  the  temporary  truth  table  to  contain 
all  zeros o 

Call  UNNECE  (an  entry  point  in  subroutine  SUBNET)  to  remove  all 
unnecessary  connections,  i„e.,  the  connection  which  do  not  lead  to  any 
output  gate  of  the  network. 

Set  KEY=0.  KEY  is  a  variable  indicating  whether  any  connection 
is  removed  during  the  current  application  of  the  procedure. 

Step  2.  Selection  of  Gates 

Select  a  gate,  GJ,  according  to  the  order  of  gate  levels,  i.e., 
gates  in  a  higher  level  are  selected  prior  to  any  gates  in  a  lower  level 
(the  output  gate(s)  whose  output (s)  is  not  connected  to  any  gates  is 
assigned  to  the  first  level).  If  all  gates  have  been  considered,  go  to 
step  9» 

Step  3.   Calculation  of  1FM5PF 

3  -  lo  List  all  O-coordinates  in  the  output  of  gate  GJ.  If  there 
is  no  such  coordinate,  go  to  step  7.  If  all  coordinates  in  the  output 
of  gate  GJ  are  O-coordinates,  go  to  step  8. 

3-2.  Using  the  temporary  array  for  the  truth  table  with  the 
above  listed  coordinates  in  gate  GJ  changed  to  ones,  update  these  coor- 
dinates for  gates  which  are  successors  of  gate  GJ. 

3-3*  Compare  the  required  output  functions  with  the  updated 
ones  for  the  coordinates  listed  in  step  3-1.  For  any  coordinate  such 
that  the  corresponding  coordinate  for  a  specified  output  function  does 
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not  contain  the  updated  corresponding  coordinate  of  this  output  function, 
this  coordinate  of  the  1FMSPF  for  gate  GJ  is  0.   List  all  O-coordinates 
of  1FMSPF  for  gate  GJ. 

If  there  is  no  O-coordinate  in  the  1FMSPF  of  gate  GJ  go  to  step 
7. 

Step  k.     Selection  of  Connection 

Select  an  input  connection  GIGJ  of  gate  GJ  according  to  the 
ascending  order  of  GI. 

If  all  input  connections  of  gate  GJ  have  been  considered,  go 
to  step  6. 

Step  5.  Examination  of  Connection 

For  coordinates  such  that  the  corresponding  values  of  1FMSPF 
for  gate  GJ  are  zeros,  if  all  1-coordinates  in  connection  GIGJ  are  covered 
by  other  existing  input  connections  of  gate  GJ,  remove  connection 
GIGJ. 
Go  to  step  km 

Step  6.  Conditionally  update  truth  table 

If  any  input  connection  of  gate  GJ  has  been  removed  in  step  5, 
update  the  truth  table  for  all  successor  gates  of  gate  GJ  by  copying  the 
contents  in  the  temporary  array  into  the  array  for  the  truth  table  for 
those  coordinates  such  that  the  corresponding  outputs  of  gate  GJ  have 
been  changed;  set  KEY=1.  Go  to  step  2. 

Step  7-  Remove  Successor  Gates  of  Gate  GJ 

Remove  all  successor  gates  of  gate  GJ  from  the  network. 
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Step  8.  Remove  gate  GJ  and  Update 

Remove  gate  GJ  from  the  network,  call  subroutine  SUBNET  to 
update  the  tables  storing  the  information  on  the  topology  of  the  network 
(e.g.,  successor  table,  predecessor  table),  and  then  go  to  step  1. 

Step  9»  Update  and  Repeat 

If  KEY  equals  to  1,  call  subroutine  SUBNET  to  update  the  tables 
storing  the  information  on  the  topology  of  the  network,  and  then  go  to 
step  1;  otherwise  return  to  the  calling  subroutine  (subroutine  MAIN  in 
program  NETTRA-P2). 
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The  Flowchart  of  subroutine  PROCI  is  shown  in  Fig.  3.1.2. 
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ENTRY 


CALL  UNNECE  TO  REMOVE  ALL  UNNECESSARY   CONNECTIONS 
SET  KEY=  0 


LEV=LEVM   (NUMBER   OF  LEVELS) 


CALL  SUBNET  TO^ 
UPDATE  TABLES, 


LEV  =  LEV  -  1 


7EV<  0 
NO 


YES 


:ro 


EXBAUSJLED_ 


Op — MR 


SELECT  ONE  GATE  GJ  IN  LEVEL  LEV  > 


[LIST  0-COORDINATES   IN  THE  OUTPUT  OF  GATE  GJ 


YES 


WITH  THESE  COORDINATES   OF  GJ  CHANGED  TO  ONE  USING 
TEMPORARY  ARRAY  UPDATE  THESE   COORDINATES   FOR  ALL 
SUCCESSOR  GATES   OF  GATE  GJ 


LIST  ALL  O-COORDINATES   IN  1FMSPF  OF  GATE  GJ 


SUCH  COORDINAT1 


REMOVE  ALL  SUCCESSOR 
GATES  OF  GATE  GJ 
FROM  THE  NETWORK 


REMOVE  GATE  GJ 
FROM  THE  NETWORK 


'CALL  SUBNET  TO 
.UPDATE  TABLES 


EXHAUSTED 
<SELECT  AN  INPUT  CONNECTION  GIGJ  OF  GATE  G  J  >— ^^ANY  : 


YE3^"D0ES   GIGJ  HAVE  ESSENTIAL  COVER  FOR  ANY   COORDINATE  x 
WHOSE  VALUE  FOR  1FMSPF  IS   0   ? 


NO 


HREMOVE  CONNECTION  GIGJ  FROM  THE  NETWORK.  KEY =  1 


UPDATE  TRUTH 
TABLE 


Fig.  3.1.2  Flowchart  for  subroutine  PROCI. 
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3.2   Examples  for  NETTRA-P1  and  NETTPA-P2 

The  printout  obtained  during  the  solution  of  a  typical  problem 
by  NETTRA.-P1  is  shown  in  Fig.  3.2.1.  The  printout  is  similar  to  the  one 
obtained  by  NETTRA-PG1  discussed  in  Section  2.3  with  (a)  showing  the 
heading  information  and  parameters  for  that  probelm,  (b)  the  truth  table 
of  the  original  network,  (c)  the  configuration  of  the  original  network 
obtained  from  input  cards,  (d)  the  truth  table  of  the  pruned  network 
obtained  by  subroutine  EDTCM1  and  (e)  the  configuration  of  that  network. 
Note  that  in  the  truth  table  of  the  pruned  network  shown  in  Fig.  3.2.1(d), 
the  output  for  a  removed  gate  is  undefined  although  in  some  other  NETTRA 
programs  it  is  assigned  to  one  for  all  input  combinations  as  shown  in 
Fig.  2.3.1  (d). 

An  example  showing  the  printout  obtained  by  program  NETTRA-P2 
is  shown  in  Fig.  2.3.2.  The  printout  is  similar  to  the  example  shown 
in  Fig.  2.3.1  with  Figs.  2.3.2(a)  ~  (c)  corresponding  to  Figs.  2.3.1(a)  ~ 
(e),  respectively. 
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****  TEST  NETWORK  (FROM  UNIVERSAL)  FOR  NETTRA  PROGRAMS:   HEX=OOl6  **** 


NUMBER  OF  VARIABLES  =   k 

NUMBER  OF  FUNCTIONS  =   1 

COST  COEFFICIENT  A  =  100 

B  =   1 

—  -  UNCOMPLEMENTED  VARIABLES  X  — 


ORIGINAL  NETWORK    COS T= 17110 


(a)  Heading  information  and  network  parameters. 


Fig.  3.2.1  Printout  obtained  from  NETTRA-P1  for  a  sample  problem 
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TRUTH  TABLE 

XI  =0000000011111111 
X2  =  0000111100001111 
X3  =0011001100110011 

xh  =  0101010101010101 

1=0000000000010110 

2  =  1000000000000000 

3  =  0100000000000000 
^  =  0010000000000000 

5  =  0001000000000000 

6  =  0000100000000000 
7=0000010000000000 
8  =  0000001000000000 
9=0000000100000000 

10  =0000000010000000 

11  =0000000001000000 

12  =  0000000000100000 

13  =  0000000000010000 
Ik   =0000000000001000 

15  =0000000000000100 

16  =0000000000000010 

17  =0000000000000001 


(b)  Truth  table  for  original  network. 


39 


GATE  .. 

LEVEL 

FED  Bl 

r 

1 

/  V 

2  3 

4 

5 

6 

7  8  9  10  11  12  14  17 

2 

/*/ 

XI  X2 

X3 

Xi+ 

3 

/  V 

XI  X2 

X3 

2 

k 

/  5/ 

XI  X2 

Xk 

2 

5 

/  V 

XI  X2 

2 

3 

It 

6 

/  5/ 

XI  X3 

XU 

2 

7 

/  V 

XI  X3 

2 

3 

6 

8 

/  V 

XI  Xk 

2 

1+ 

.6 

9 

/  3/ 

XI  2 

3 

4 

5 

6  7  8 

10 

/  5/ 

X2  X3 

X^ 

2 

n 

/  V 

X2  X3 

2 

3 

10 

12 

/  V 

X2  Xk 

2 

If 

10 

13 

/3/ 

X2  2 

3 

1+ 

5 

10  11  12 

Ik 

/  V 

X3  Xk 

2 

6 

10 

15 

/  3/ 

X3  2 

3 

6 

7 

10  11  Ik 

16 

/  3/ 

X^  2 

4 

6 

8 

10  12  Ik 

17 

/2/ 

2  3 

k 

5 

6 

7  8  9  10  11  12  13  Ik  15  16 

(c)  Configuration  of  original  network. 
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NETWORK  DERIVED  BY  RDTCNT 

TIME  ELAPSED  =  23      CENTTSECONDS 


TRUTH  TABLE 

XI  = 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

111 

X2  = 

0 

0 

0 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

111 

X3  = 

0 

0 

1 

1 

0 

0 

1 

1 

0 

0 

1 

1 

0 

Oil 

Xk  = 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

10   1 

1  = 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

110 

2   = 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0  0  0 

3  = 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0   0   0 

k  = 

1 

0 

1 

0 

0 

0 

0 

0 

1 

0 

1 

0 

0 

0  0  0 

5  = 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0  0  0 

6  = 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0  0  0 

7  = 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0  0  0 

8  = 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0  0  0 

9  = 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0  0  0 

10  = 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0  0  0 

11  = 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0  0  0 

12  = 

1 

0 

1 

0 

0 

0 

0 

0 

1 

0 

1 

0 

0 

0  0  0 

13  = 

1 

1 

1 

1 

0 

0 

0 

0 

1 

1 

1 

1 

0 

0  0  0 

Ik  = 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0 

0 

0 

1 

0  0  0 

15  = 

1 

1 

0 

0 

1 

1 

0 

0 

1 

1 

0 

0 

1 

10  0 

16  = 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0  10 

17  = 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0  0  1 

(&)     Truth  table  for  pruned  network. 
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XI 
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/  V 

11 
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X2  X3 

12 
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X2  Xk 

13 

/3/ 

X2 

Ik 

/2/ 

X3  xi+ 

15 

/  3/ 

X3 

16 

/3/ 

Xk 

17 

/2/ 

13  15  16 

*  A  NETWORK  DERIVEE 

BY  RDTCNT 

COST= 

918. 

(e)  Configuration  of  pruned  network. 
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****     TEST  NETWORK   (FROM  UNIVERSAL)   FOR  NETTRA  PROGRAMS:      HEX=OOl6     **** 

NUMBER  OF  VARIABLES  =  k 
NUMBER  OF  FUNCTIONS  =  1 
COST  COEFFICIENT  A     =  100 

B     =        1 

—  UNCOMPLEMENTED  VARIABLES  X  --- 


ORIGINAL  NETWORK    COST=  17110 


(a)  Heading  information  and  network  parameters. 


Fig.  3.2.2  Printout  obtained  from  NETTRA-P2  for  a  sample  program 
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TRUTH  TABLE 

Xl  =  0000000011111111 
X2  =  0000111100001111 
X3  =0011001100110011 
Xk  =0101010101010101 
1=0000000000010110 

2  =  1000000000000000 

3  =  0100000000000000 
^=0010000000000000 

5  =  0001000000000000 

6  =  0000100000000000 
7=0000010000000000 
8=0000001000000000 
9=0000000100000000 

10  =0000000010000000 

11  =0000000001000000 

12  =  0000000000100000 

13  =0000000000010000 
Ik   =  0000000000001000 

15  =0000000000000100 

16  =  0000000000000010 

17  =0000000000000001 


(b)  Truth  table  for  original  network. 
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/  V 
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3 

^ 

6 

/  5/ 

XI  X3 
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2 

7 

/  V 

XI  X3 
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3 

6 

8 

/  V 

XI  xk 
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k 

6 

9 

/  3/ 

XI  2 

3 

k 

5 

678 

10 

/  5/ 

X2  X3 

Xk 

2 
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/  V 

X2  X3 
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10 
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/  V 

X2  Xk 

2 

k 

10 

13 

/3/ 

X2  2 
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k 

5 

10  11  12 

Ik 

/  V 

X3  X*J- 

2 
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10 

15 
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X3  2 

3 

6 
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10  11  Ik 

16 

/  3/ 

X^  2 

If 

6 

8 

10  12  Ik 

17 

/3/ 

2  3 

U 
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6 

7  8  9  10  11  12  13  Ik   15  16 

(c)  Configuration  of  original  network. 
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NETWORK  DERIVED  BY  PROCI 

TIME  EIAPSED  =      k-9     CENTISECONDS 


TRUTH  TABLE 

XI  OOOOOOOOl. 1111111 
X2  =  0000111100001111 
X3  =  001100110011. 0  011 

xh  =  0101010101010101 

1  =  0000000000010110 

2  =  1000100010001000 

3  =  1100000011000000 

4  =  1010000010100000 

5=1111111100000000 

6  =  0000000000000000 

7=1111111100000000 

8  =  1111111100  0  0  0000 
9=0000000000000000 

10  =  0000000000000000 

11  =0000000000000000 

12  =  0000000000000000 

13  =  1111000011110000 

Ik  =0000000000000000 
15  =  1100110011001100 

16  =  1010101010101010 

17  =  0000000000000001 


(d)     Truth  table  for  pruned  network. 
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/V 
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XI 

9 

/I/ 

10 

/V 
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IV 
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/I/ 

13 

/3/ 

X2 
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/I/ 

15 

/3/ 

X3 

16 

/3/ 

Xk 

17 

/2/ 

13  15  16 

*  A  NETWORK  DERIVED 

■  BY  PROCI 

COST= 

918. 

8  17 


(e)     Configuration  of  pruned  network. 
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k.     MAJOR  FUNCTIONS  OF  COMMON  SUBROUTINES 

The  subroutines  realizing  the  procedures  presented  in  the  two 
previous  sections  share  the  support  of  three  subroutines  whose  main 
functions  will  be  discussed  in  this  section:  MAIN,  SUBNET,  OUTPUT. 

Complete  program  listings  of  these  three  subroutines  can  be 
found  in  the  appendix.   (MAIN  varies  slightly  in  each  of  the  three  pro- 
grams, while  SUBNET  and  OUTPUT  remain  unchanged.) 

The  functions  of  these  subroutines  are  as  follows : 

MAIN:  This  subroutine  repeatedly  reads  in  groups  of  input  data  which 
include  information  about  the  given  networks,  e.g.,  the  number  of  external 
variables,  whether  or  not  the  compliments  of  variables  are  also  available 
as  input  variables ,  the  number  of  output  functions ,  the  number  of  NOR 
gates,  the  list  of  connections,  and  the  truth  table  of  the  output  functions 
(see  Section  5  for  details).  Using  this  information,  MAIN  constructs  the 
incidence  matrix,  INC$MX,  for  the  network.  INC$MX  is  two-dimensional  array 
whose  arguments  represent  gates  or  external  variables.  An  array  element 
INC$MX(A1,  A2)  >  1  indicates  a  connection  from  Al  to  A2;  an  array  element 
INC$MX(A1,A2)<0  indicates  the  absence  of  a  connection  from  Al  to  A2. 
Next  subroutine  SUBNET  is  called  to  calculate  the  level  of  each  gate  and 
to  make  lists  of  predecessors  and  successors  (i.e.,  which  gates  precede 
which  and  which  gates  succeed  which).  MAIN  then  prints  out  the  truth 
table  and  the  constructed  incidence  matrix  of  the  original  network  by 
calling  the  subroutine  OUTPUT.  Finally  the  desired  transduction  procedure 
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is  applied  to  the  network  by  calling  the  subroutine(s)  realizing  that 
transduction.   The  transformed  network  is  stored  in  INC$MX,  replacing 
the  original  network.  Then  MAIN  prints  the  results  of  the  transduction 
procedure,  i.e.,  lists  of  removed  and  added  connections,  the  new  incidence 
matrix,  and  the  new  truth  table. 

SUBNET:   This  subroutine  may  be  entered  at  three  different  points  by  a 

call  to  either  SUBNET,  UNNECE,  or  PVALUE. 

SUBNET  generates  detailed  information  on  the  topology  of  the  network 
stored  in  INC$MX:   (l)  it  calculates  the  level  of  each  gate 
in  the  network.  Level  1  is  assigned  to  gates  having  no  output 
connections  thus  all  gates  which  have  been  removed  from  the 
network  will  be  assigned  level  1.   (2)  It  lists  all  immediate 
successors  and  immediate  predecessors  for  each  gate.   (3)  It 
calculates  the  successor  matrix  which  is  stored  in  a  two- 
dimensional  array,  SUC$MX.   The  value  of  SUC$MX(A1,A2)  indi- 
cates the  existence  or  non-existence  of  a  path  from  gate  (or 
external  variable)  Al  to  gate  A2. 

UNNECE  disconnects  certain  types  of  obviously  unnecessary  connections 
in  the  network  and  updates  the  above  information  (discussed 
in  (l),  (2)  and  (3)).  The  connections  removed  from  the  given 
network  are  those  existing  in  no  paths  from  the  external 
variables  to  the  output  gates. 

PVALUE  calculates  the  actual  truth  table  for  the  entire  network  stored 
in  INC$MX. 
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OUTPUT:   This  subroutine  may  be  entered  at  five  different  points  by  a 
call  to  either  OUTPUT,  PAGE,  LINE,  TRUTH  or  CKT. 

OUTPUT  assigns  mnemonic  names  to  external  variables  and  gates  for 
the  purpose  of  achieving  a  readable  print-out. 

PAGE   ejects  one  page  on  the  printer. 

LINE   skips  a  specified  number  of  lines  on  the  print-out  sheet. 
The  number  is  specified  by  the  argument  in  the  call  (e.g., 
"CALL  LINE(S)"  skips  5  lines). 

TRUTH  prints  out  the  truth  table  of  the  network  currently  stored 
in  INCSMX. 

CKT    prints  out  the  network  itself. 
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5.   INPUT  DATA  SETUP 

In  order  to  fully  -understand  the  description  of  the  setup  of  the 
input  data  cards,  certain  preliminary  explanations  are  necessary. 

The  purpose  of  network  transductions  is  to  reduce  the  cost  of 
a  network  which  realizes  a  certain  function  (or  functions)  or  to  alter 
the  network  in  such  a  way  as  to  allow  another  transduction  to  eventually 
accomplish  such  a  reduction.   This  cost,  C,  is  formally  defined  by  the 
weighted  sum  of  the  number  of  gates,  R,  and  the  number  of  connections  , 
of  a  particular  network,  i.e., 

C  =  AxR  +  B  XI 
where  A  and  B  are  arbitrary  non-negative  weights. 

Suppose  the  original  network  which  is  to  be  transformed  produces 
m  output  functions  of  n  variables.   Let  x*>   i =  1,  .«.,  n,  be  the  external 
variables  and  f,  ,  h=l,  . . . ,  m,  be  the  output  functions.  Before  an  opera- 
tion can  be  performed  on  a  network  by  the  program,  a  description  of  that 
network  must  be  input  to  the  program.  In  the  case  when  all  of  the  output 
functions  are  completely  defined  (i.e.,  no  "don't  cares")  specifying  only 
the  interconnection  pattern  of  the  network  is  sufficient.  But  if  one  or 
more  of  the  output  functions  is  not  completely  specified,  then  the  user 
must  also  provide  the  truth  table  (truth  tables  for  all  output  functions 
are  condensed  into  a  single  table)  of  the  problem.  Providing  the  truth 


t  A  "connection"  refers  to  either  a  connection  from  an  external  variable 
or  an  interconnection  between  two  gates. 
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table  to  the  program  consists  of  two  steps,  namely  the  specification  of 
external  variables,  and  the  specification  of  output  functions. 

The  method  of  specifying  the  output  functions  depends  directly 
upon  the  method  chosen  to  specify  the  external  variables.  External 
variables  may  be  specified  in  either  of  two  ways,  (a)  an  implicit  specifi- 
cation of  external  variables ,  or  (b)  an  explicit  specification  of  external 
variables . 

(a)  In  the  case  of  implicit  specification  of  external 
variables,  the  user  specifies  the  number  n  of  external  variables 
along  with  a  parameter  which  indicates  whether  or  not  the 
uncomplemented  variables  are  available.  Reading  the  value  n 
along  with  the  parameter,  the  program  internally  generates 
the  entries  of  external  variables  of  an  ordinary  truth  table, 
that  is,  a  truth  table  which  consists  of  2  input  vectors,  as 
shown  in  Fig.  5.1«  In  this  truth  table,  the  input  vectors  are 
arranged  according  to  the  order  that  an  integer  j  expressed  in 
a  binary  representation  (x  . ..x  )  increases,  where  x  is  the 
most  significant  digit  and  x  is  the  least  significant  digit. 
For  example,  the  truth  table  of  a  function  of  three  variables 
is  shown  in  Fig.  5.2. 

The  implicit  specification  of  external  variables  is  used  for 
logical  design  proglems  in  which  the  output  functions  have 
relatively  few  don ' t-care  terms . 
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Fig.  5.1  The  truth  table  of  output  functions  of  n  variables 
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Fig.  5.2  The  truth  table  of  a  function  of  three  variables. 
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(t>)  In  the  case  of  explicit  specification  of  external  vari- 
ables, the  user  specifies  the  entries  of  external  variables  of 
the  truth  table  using  additional  cards  called  <  external -vari- 
able-card >  s.  The  explicit  specification  of  external  variables 
is  used  in  the  case  of  logical  design  problems  where  output 
functions  have  many  don't-care  terms.  Suppose  that  the  output 
functions  are  defined  for  a  subset  of  input  vectors  of  the 
entire  truth  table  of  Fig.  5.1.  Let  x,  j  =  j  ,  G2>  ■••» 
j  denote  these  input  vectors.  The  user  can  'condense'  the 
truth  table  of  Fig.  5.1  into  another  table  shown  in  Fig.  5.3. 
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Fig.  5.3  A  'condensed'  truth  table  having  only  the  input  vectors  x  ,  j  =  j1? 
j  ,  for  which  the  output  functions  are  defined. 
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Using  <  external-variable-card  >  s,  the  user  can  set  up  internally  the 
table  of  Fig.  5.3  in  place  of  Fig.  5,1. 

5.1  Input  Data  Card  Format 

For  each  separate  problem,  a  set  of  input  data  cards  must  be 

t 
submitted  which  consists  of  the  following  : 

(i)     <  heading -card  > 

(ii)    <  problem-parameter -card  > 

(iii)   <  external-variable-card  >  s  ] 

/  omitted  for 

(iv)    <  output -function-card  >  s   J       certain  cases 

(v)     <  connection-description-card  >  s 

Both  (i)  and  (ii)  will  always  consist  of  only  a  single  card,  but 
(iii),  (iv),  and  (v)  may  each  consist  of  several  cards.  Furthermore, 
types  (iii)  and  (iv)  are  omitted  if  all  ouput  functions  are  completely 
specified,  and  (iii)  need  only  be  prepared  in  the  case  of  the  explicit 
specification  of  external  variables  for  the  truth  table.  Following  is  a 
description  of  the  formats  for  each  type  of  input  card,  (i),  (ii),  (iii), 
(iv)  and  (v) : 

(i)  <  Heading -card  > 

This  is  the  first  card  of  the  input  deck  for  a  problem.   This 
card  may  contain  any  alphanumeric  information,  in  columns  1~80, 
which  may  be  used  for  the  identification  of  the  problem,  but  none 
of  the  information  on  this  card  will  be  used  in  the  actual  computation. 
This  information  will  be  printed  on  the  front  page  of  the  output. 


t  The  current  implementations  of  the  programs  accept  only  the  heading, 
problem-parameter,  and  connection -desription  cards.  Eventually  it 
is  hoped  that  these  programs  will  be  modified  to  accept  all  of  the 
options  described  in  this  section. 
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(ii)  <  Problem-parameter-card.  > 

This  card  specifies  the  nature  of  the  problem  the  user  wants 
to  solve.  There  are  7  fields  in  which  to  specify  the  parameters 
with  characters  and  numerals.  These  fields  are  as  follows: 

Cols.  1~^:  An.  integer,  N,  which  is  right-justified. 

This  number,  N,  represents  the  number  of  external  variables,  n, 
of  the  output  functions.  Be  sure  to  punch  n  (rather  than  2n)  for 
N  in  the  case  of  both  complemented  and  uncomplemented  variables 
available. 

Cols.  5~8:  An  integer,  M,  which  is  right -justified. 

This  number,  M,  is  the  number  of  output  functions,  m,  to  be 
realized  simultaneously.  Therefore,  of  course,  M  will  also  be 
the  number  of  output  gates  in  the  network. 

Cols.  9~12:  An  integer,  R,  which  is  right- justified. 

This  number,  R,  specifies  the  number  of  gates  which  are  included 
in  the  network.  For  various  reasons,  the  user  may  wish  to  input 
networks  in  which  one  or  more  of  the  gates  are  "isolated"  (i.e., 
are  not  connected  to  any  other  gates).  This  is  permissible  as  long 
as  these  "isolated"  gates  are  also  included  in  the  total  number  of 
gates,  R. 

Cols.  13~l6:  An  integer,  A  ,  which  is  right-justified. 

The  number  A  is  the  value  of  the  non-negative  weight  for  the 
number  of  gates  in  the  cost  function.  (See  Table  5.1.1?  'Typical 
combinations  of  values  A  and  B  for  different  network  reduction 
problems ' . ) 
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Cols.  17~20:  An  integer,  B  ,  which  is  right-justified. 
The  number  B  is  the  value  of  the  non -negative  weight  for  the 
number  of  connections  in  the  cost  function.   (See  Table  5.1.1.) 

Col.  2k:     A  blank  'b'  +  ,  or  one  of  the  characters,  'C,  *X' ,  *Y' , 
'U'  or  'V*. 

The  'b'  or  'C  parameter  represents  an  implicit  specification 
of  both  the  external  variables  and  an  implicit  specification  of 
the  output  functions  (in  this  case,  the  output  functions  will  be 
calculated  from  the  connection  pattern  of  the  network).   The  'X'  or 
'Y'  parameter  indicates  an  implicit  specification  of  external  variables 
only.   The  'U'  or  'V  parameter  indicates  an  explicit  specification  of 
external  variables.   (See  summary  of  these  symbols  in  Table  5.1.2) 

The  'b'  or  'X'  parameter  specifies  that  only  uncomplemented 
external  variables  are  available  for  the  network.  The  '  C  or  'Y' 
parameter  specifies  that  both  uncomplemented  and  complemented  vari- 
ables are  available  for  the  network.  If  the  user  specifies  the  'b ' , 
'X',  'C,  or  'Y'  parameter,  the  program  sets  up  the  truth  table  by 
generating  a  set  of  2  input  vectors  (x_^  ...,  x  ),  for  j  =  0,  ..., 
2n-l,  in  the  case  of  a  'b '  or  'X'  parameter,  or  (x  ,  ...,  x^,  xj, 

...,  xJ   for  j  =  0,  ...,  2-1.  in  the  case  of  a  'C  or  'Y'  parameter, 
n 

The  'b'  or  ' C  parameters  should  be  used  for  problems  in  which 
the  output  functions  contain  no  don't-care  terms.  For  such  problems, 

the  preparation  of  the  <  external-variable-card  >  s  and  the  <  output - 
function-card  >  s  can  be  dispensed  with  since  the  program  can  calcu- 
late completely  all  output  functions  using  only  a  description  of  the 


t  A  'b'  stands  for  a  blank  (i.e.,  no  character  punched). 
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Network  Reduction  Problem 

Values  of  A 

and 

B 

reducing  the  number  of 
gates  only. 

A  =  1  and 

B  = 

0 

reducing  the  number  of 
gates  primarily,  then 
reducing  the  number  of 
connections  secondarily. 

A  =  100  and 

B  = 

1 

reducing  the  number  of 
connections  only. 

A  =  0  and 

B  = 

1 

reducing  the  number  of 
connections  primarily, 
then  reducing  the  number 
of  gates  secondarily. 

A  =  1  and 

B  = 

100 

reducing  the  sum  of  the 

A  =  B  =  1 

number  of  gates  and  the 
number  of  connections. 


Table  5.1.1  Typical  combinations  of  values  A  and  B  for  different  network 
reduction  problems . 


Most  of  the  programs  in  the  NETTRA  system  are  oriented  toward  this 
reduction  problem,  so  the  user  will  probably  find  this  combination 
of  A  and  B  the  most  useful. 
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uncomplemented 

variables 
only  available 


both  complemented 
and  uncomplemented 
variables  available 


•b' 



•c» 

'X' 

ly, 

■U' 

*V 

implicit  specification 
of  external  variables 
and  output  functions 


implicit  specification 
of  external  variables 


explicit  specification 
of  external  variables 


Table  5-1.2  Possible  symbols  for  column  2k   of  <  problem-parameter-card  >. 
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connection  pattern  of  the  network  (provided  by  the  <connection- 
description-card>s ) „ 

Similarly,  the  'X'  or  'Y'  parameter  implies  the  use  of  a  complete 
truth  table  (i.e.,  2  input  vectors  for  n  external  variables)  inside 
the  program.   Since  from  this  information  the  program  can  easily 
generate  the  truth  table  entries  for  the  external  variables ,  as 
just  mentioned,  the  <  external-variable-card  >  s  are  unnecessary. 
The  m  <  output -function -card  >  s,  however,  must  still  be  prepared. 

The  'U'  parameter  specifies  that  only  uncomplemented  external 
variables  are  available  for  the  network.   The  'V  parameter  specifies 
that  both  uncomplemented  and  complemented  variables  are  available 
for  the  network.   In  either  case,  the  'U'  or  the  'V  parameter, 
the  user  must  prepare  n  <  external -variable-card  >  s  and  m  <  output- 
function-card  >  s.  The  program  sets  up  the  truth  table  by  reading 
these  <  external -variable-card  >  s  and  <  output -function-card  >  s. 

Cols.  25~28:  An  integer,  NEPMAX,  which  is  right-justified. 

This  parameter  is  omitted  for  all  NETTRA  programs  except  those 
involving  "error -compenstation"  routines.   In  the  cases  where  NEPMAX 
is  required,  a  futher  discussion  of  this  parameter  can  be  found 
elsewhere  in  the  manual.   The  abbreviation  NEPMAX  is  a  mnemonic 
for  "maximum  number  of  error  positions",  and  the  default  will  be 
NEPMAX  =2^  "   ,  where  n  is  the  number  of  external  variables. 

(iii)  <  External-variable-card  >  s 

In  combination  with  the  'U'  or  'V  parameter  in  column  2k   of 
the  <  problem-parameter-card  >,  the  n  <  external -variable-card  >  s 
specify  the  entries  of  external  variables  of  the  truth  table  of 
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Fig.  5.3.  Each  card  contains  the  binary  representation  of  external 
variable  x*,  i.e.,  (x,1,  x/>  •••>  x/1  )>  starting  from  column  1 
of  the  card.   The  maximum  number  of  digits  in  a  binary  representation 
is  limited  to  32.   (This  means  the  maximum  number  of  input  vectors 
is  32.)  If  the  actual  number  of  digits  is  less  than  32,  then  put 
a  termination  symbol  '/'  (a  slash)  on  the  right  of  the  right-most 
digit  of  the  binary  representation  on  the  first  <  external -variable - 
card  >.   The  remaining  columns  after  the  termination  symbol  '/'  in 
the  first  card,  as  well  as  the  same  columns  in  the  following  cards, 
may  contain  any  alphanumeric  information  which  may  be  used  for 
identification.   This  information  will  not  be  printed  on  the  output 
pages. 

In  the  case  of  the  'V  parameter,  the  program  generates  the 
binary  representations  corresponding  to  complemented  variables  by 
taking  negations  of  the  entries  of  the  <  external -variable -card  >  s. 
Therefore  the  user  must  not  provide  <  external -variable-card  >  s 

representing  the  complemented  variables,  x». 

If  one  of  the  parameters  'b',  'C,  'X',  or  'Y'  appeared  in 
column  2k   of  the  <  problem-parameter -card  >,  do  not  prepare  <  external- 
variable-card  >  So 

(iv)  <  Output-function-card  >  s 

The  m  <  output -function-card  >  s  specify  the  set  of  m  output 
functions  to  be  realized  simultaneously.  Each  card  contains  the 
binary  representation  of  one  output  function  f  ,  starting  from 
column  1  of  the  card.  Use  a  symbol  '*'  to  denote  don't-care  terms, 
if  any.   The  maximum  number  of  digits  in  a  binary  representation  is 
limited  to  32. 
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The  actual  number  of  digits  must  be  2  in  the  case  of  an  implicit 
specification  of  external  variables,  or  must  be  the  same  as  defined 
by  the  <  external -variable-card  >  s  in  the  case  of  an  explicit 
specification  of  external  variables „  The  remaining  columns,  up  to 
column  72  (inclusive),  may  contain  any  alphanumeric  information 
which  may  be  used  for  identification.   This  information  will  not  be 
printed  on  the  output  pages. 

If  either  the  'b'  or  'C  parameter  appeared  in  column  2k   of 
the  <  problem-parameter -card  >,  the  <  output -function -card  >  s 
must  be  omitted. 

(v).  <  Connection-description-card  >  s 

In  the  present  version  of  the  program,  9  cards  (some  of  which 

4. 
may  be  just  blank  cards)  are  requiredo   Each  of  these  cards  is 

divided  into  l6  fields  of  5  columns  each  (i.e.,  columns  1~5,  6~10, 

11~15,  ...,  71~75,  76~80).  Beginning  with  the  first  field  of 

the  first  card,  continuing  through  the  succeeding  fields  of  that 

card  and  through  the  fields  of  as  many  additional  cards  as  necessary 

(up  to  a  maximum  of  9>  total),  punch  the  expressions  (explained  in 

the  next  paragraph)  C  ,  CL,  CL,  ...,  right-justified  in  their 

respective  fields. 

Label  each  gate  of  the  network  uniquely  by  assigning  to  it  one 

of  the  integers  1,  2,  ...,  R,  such  that  the  output  gates  receive 


t  For  many  uses,  the  user  will  probably  find  that  these  9  cards  far 
exceed  his  needs,  and  may  thus  be  inconvenient.   In  such  a  case,  the 
number  of  required  cards  may  be  easily  adjusted  by  making  the  obvious 
changes  in  two  statements  (A  READ  statement  and  a  DO  statement) 
following  the  comment  card  "C**-**  READ  IN  NEWORK  INFORMATION  AND 
SET  UP  INC$MX  *****"   in  subroutine  MAIN. 
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the  labels  1,  2,  ...,  m.  Assign  the  names  XI,  X2,  . ..,  Xn  to  the 

external  variables  x.. ,  x  ,  . . . ,  x  (  and  the  names  Yl,  Y2,  . . . ,  Yn 
to  the  complemented  external  variables  x  ,  x  ,  . ..,  x  ,  if  appropri- 
ate).  Now,  for  each  connection  of  the  network  (i.e.,  including 
both  the  connections  from  external  variables  to  gates  and  the 
connections  from  gates  to  other  gates),  form  a  k   character  expression 
C.  to  represent  that  connection  as  follows:  to  represent  a  connection 
from  gate  GI  to  gate  GJ,  insert  the  numeric  label  GI  into  the  first 
two  character  positions  of  C.  and  insert  the  numeric  label  GJ  into 
the  second  two  positions  (e.g.,  the  C.  for  a  connection  from  gate  9 
to  gate  5  would  be  "0905");  to  represent  a  connection  from  external 
variable  XI  to  gate  GJ,  insert  the  alphanumeric  label  XI  into  the 
first  two  character  positions  of  C.  and  the  numeric  label  GJ  into  the 
second  two  positions  (e.g.,  the  C.  for  a  connection  from  external 
variable  x_  to  gate  10  would  be  "X310"). 

Every  connection  of  the  network  must  be  represented  by  a  C. , 
although  there  are  no  restrictions  on  the  order  in  which  the  connec- 
tions (i.e.,  C.'s)  are  punched  onto  the  input  cards. 


t  At  the  time  of  writing,  the  programs  have  not  yet  been  changed  to 
recognize  this  new  labeling  system.  The  old  labels  are  simply: 

1,  2,  „..,  n,  for  external  variables  x  ,  x  ,  ...,  x  (and  n +  1, 

n  +  2,  ...,  2n.  for  the  complemented  variables  x  ,  x_,  ...,  x  , 

if  they  are  permitted  in  the  problem);  n  +  1,  n  +  2,  „..,  n  +  m  for 
the  m  output  gates  of  the  network  (2n  +  l,  2n  +  2,  ...,  2n  +  m  if 
complemented  variables  are  included);  and  finally  n  +  m+1,  n  +  m+2. 
. ..,  n  +  R  (2n  +  m+l,  2n  +  m+2,  ...,  2n  +  R)  for  the  non-output 
gates  of  the  network. 
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These  five  groups  of  cards,  (i),  (ii),  (iii),  (iv)  and  (v)  in 
the  correct  order  constitute  the  necessary  description  for  a  single 
problem.  In  order  to  solve  several  problems  during  the  same  computer  run, 
just  arrange  serially  the  descriptions  for  the  desired  problems.  See 
Fig.  5.1*1  for  an  example  of  the  sequencing  of  all  cards  for  the  execu- 
tion of  the  program  using  typical  JCL  statements  for  the  IBM  360/75. 
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The  Program 


The  Input 
Data  Cards 


r 


v*» 


//ID   ... 

//     EXEC  FORT 

//FORT.  SYS  IN  DD* 


FORTRAN  PROGRAM 
SUBROUTINES 


/* 

//   EXEC  LKED 
//   EXEC  GO 

//GO.SYSIN  DD  * 


\  <  heading-card  > 

\   <   problem-parameter -card  > 


f  <  external-variables -card  >  s 

(  <   output-function-card  >  s 

f<   connection-description-card > s 


C<  heading -card  > 


E 


E 


The  first  problem 


A 


The  second  problem 


f<   heading -card  > 


c 


E 


z. 


The  last  problem 


/* 


Fig.  5.1.1  Input  card  sequence  for  the  execution  of  a  typical  NETTRA  program. 
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5.2  Restrictions  on  Problem  Size 

In  order  to  fit  the  program  into  a  finite  amount  of  space,  some 
restrictions  on  the  size  of  an  acceptable  problem  were  made: 

1.  The  number  t  of  input  vectors  in  the  truth  table  is  32  or  less. 

2.  The  number  n  of  external  variables. 

Because  of  t  <  32,  n  is  5  or  less  in  the  case  of  completely  specified 
functions.  In  the  case  of  incompletely  specified  functions,  however, 
any  n  <  20  is  acceptable  if  only  uncomplemented  variables  are  avail- 
able, or  n  <  10  if  both  uncomplemented  and  complemented  variables 
are  available,  provided  that  the  truth  table  is  defined  by  the 
<  external -variable -card  >  s. 

3.  The  number  R  of  gates. 

The  number  of  gates,  R,  may  not  exceed  UO-n  in  the  case  of  only 
uncomplemented  variables  available  (a  'b1,  'X',  or  'IT  parameter). 
In  the  case  of  both  uncomplemented  and  complemented  variables 
available  (a  'C,  'Y'  or  'V  parameter),  the  limit  is  lowered  to 
i+0-2n. 

All  of  these  limitations  are  essentially  imposed  by  the  array 
sizes  in  the  program  as  presently  written.  To  loosen  the  restrictions 
is  mainly  a  task  of  increasing  array  dimenstions  appropriately. 

5.3  Examples  of  Input  Data  Setup 

The  following  examples  will  illustrate,  for  the  general  program 
in  the  NETTRA  system,  various  possible  input  data  card  setups  complying 
with  the  directions  given  in  Section  5.1. 
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Example  1:  A  two  output  network  of  four  variables  shown  in 

Fig.  5.3.1.  Assume  the  two  output  functions  are  f  =  CCEF*  and  f  =  3BBB 

and  only  uncomplemented  variables  are  available.  Furthermore,  assume 

it  is  desired  to  reduce  the  number  of  gates  primarily  and  the  number  of 

connections  secondarily  (see  Table  5.1.1). 

From  this  description,  the  <  problem-parameter -card  >  must 

contain  the  following  values: 

Cols.  l~k  k,     the  number  of  external  variables 

Cols.  5~8       2,  the  number  of  output  functions 

Cols.   9~12      8,  the  number  of  gates  in  the  original  network 

Cols.  13~l6     100,  the  value  of  A 

Cols.  17~20      1,  the  value  of  B 

Cols.     2k  'b',  uncomplemented  variables  only  available  and 

implicit  specification  of  both  the  external 
variables  and  the  output  functions 

Cols.  25~28     'b',  since  the  NEPMAX  parameter  is  unrelated  to 

the  program  to  be  used 

Fig.  5-3.2  shows  the  setup  of  data  cards  used  to  specify  the 
network  in  Fig.  5.3.1  as  input  for  the  program.  Notice  that  in  forming 
the  C. ,  the  four  uncomplemented  variables  are  represented  by  the  labels 
XI,  X2,  X3,  XU;  the  two  output  gates  by  the  numbers  1,  2;  and  the  remain- 
ing gates,  by  the  numbers  3>  k,   55  6,  7>  8.  This  manner  of  labeling  is 


t  For  convenience,  the  output  functions  are  expressed  in  hexidecimal 
notation.  When  the  numbers  in  this  notation  are  expanded  into  binary, 
they  represent  the  output  vectors  as  they  appear  (i.e.,  in  the  same 
left-to-right  order)  in  the  complete  truth  table  described  earlier 
and  pictured  in  Fig.  5.1. 

tt  This  assumption  is  implicit  in  most  of  the  transduction  procedures 
and  their  implementations  which  comprise  the  NETTRA  system. 
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Fig.  5.3.1  Network  to  be  transformed  in  Examples  1  and  2, 
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strictly  required  by  the  instructions  for  preparing  the  <  connection- 
description-card  >  s  (see  Section  5.1). 

The  heading  card  in  Fig.  5.3.2  will  simply  be  read  by  the  program 
and  printed  character  for  character  onto  the  output  page  as  an  identifica- 
tion of  the  particular  problem.  Below  that,  the  number  of  variables, 
number  of  functions,  and  the  cost  coefficients,  A  and  B,  will  be  printed 
(all  with  appropriate  labels).  Also,  immediately  following  will  be  a 
statement  of  what  types  of  external  variables  are  permitted  (i.e.,  either 
just  uncomplemented  variables  or  both  complemented  and  uncomplemented) 
along  with  their  generic  names: 

X  -  for  uncomplemented  variables  l     .  „       _    .  ,  _ 

*  V     xf  external  variables 

v       _p  n    .  a  .   vn      /     were  implicitly  specified 

Y  -  for  complemented  variables  e  J     * 

or 


if  external  variables 
were  explicitly  specified 


U  -  for  uncomplemented  variables 
V  -  for  complemented  variables 

For  example,  if  both  X  and  Y  appeared  as  generic  names  (as 
would  occur  in  the  case  of  an  implicit  specification  of  external  variables 
with  both  complemented  and  uncomplemented  variables  available)  then  the 
external  variable  names  which  appeared  on  the  output  pages  would  be  XI, 
X2,  ...,  Xn  and  Yl,  Y2,  ...,  Yn.   Or,  if  both  U  and  V  appeared  as  generic 
names  (as  would  occur  in  the  case  of  an  explicit  specification  of  external 
variables  with  both  complemented  and  uncomplemented  variables  available) 
the  external  variable  names  which  appeared  in  the  output  would  be  Ul,  U2, 
...,  Un  (for  the  uncomplemented  variables)  and  VI,  V2,  ...,  Vn  (for  the 
complemented  variables).  It  should  be  noted,  however,  that  the  letters 
U  and  V,  as  used  as  replacements  for  X  and  Y  (respectively)  in  the 
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naming  of  external  variables  (e.g.  Ul,  VI  instead  of  XI,  Yl),  appear 
strictly  on  the  output  pages  of  the  program  -  they  are  not  used  internally 
in  the  program  and  they  must  not  appear  in  the  variable  names  punched 
on  the  <  connection-description-card  >  s  by  the  user.  They  are  intended 
only  as  an  aid  to  the  user  so  that,  at  a  glance  at  the  transformed 
network  in  the  output,  he  can  easily  distinguish  whether  the  external 
variables  were  implicitly  or  explicitly  specified  for  that  particular 
problem. 

Following  the  statement  of  whether  only  uncomplemented  or  both 
complemented  and  uncomplemented  external  variables  are  employed,  the  user 
will  find  next  on  the  output  page  the  cost  of  the  original  network  which 
was  input  to  the  program.  This  is  the  cost  which  was  defined  in  the 
beginning  of  Section  5. 

The  cost  is  followed  by  a  truth  table  (generally  in  the  same 
form  as  Fig.  5.1)  showing  the  outputs  (0  or  l)  of  all  of  the  gates  in 
the  network  for  every  external  variable  input  combination  (i.e.,  combina- 
tions of  0's  and  l's)  of  interest. 

Finally,  below  the  truth  table  is  printed  a  description  of  the 
network  submitted  as  input.  This  is  for  documentation  purposes,  and  it 
is  also  much  more  readable  than  the  network  description  which  appeared 
on  the  <  connection -description-card  >  s.  In  this  description,  each  gate 
is  listed  along  with  the  names  of  the  gates  and  external  variables  which 
feed  it.  Also,  to  assist  the  user  in  sketching  the  network  from  its 
description,  the  level  of  each  gate  in  the  network  is  included  here 
(gates  which  do  not  feed  other  gates  are  assigned  to  level  1,  all  other 
gates  are  assigned  level  numbers  such  that  each  gate  is  in  a  level  one 
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higher  than  the  highest  level  gate  directly  fed  by  it). 

All  of  the  information  just  described  is  printed  before  the 
execution  of  the  transformation  actually  begins.   This  is  followed,  begin- 
ning at  the  top  of  a  new  output  page,  by  the  network(s)  actually  obtained 
as  a  result  of  the  computation,,   First  the  complete  truth  table  of  the 
transformed  network  is  printed,  and  this  is  followed  by  a  network  con- 
nection description  of  the  form  just  described  above.   Finally,  the 
cost  of  the  new  network  is  also  calculated  and  printed. 

In  this  example,  it  was  assumed  that  there  were  no  "don't-cares" 
in  the  output  functions  implicitly  specified  by  the  input,  thus  no 

<  external -variable-card  >  s  or  <  output-function-card  >  s  were  included. 
In  the  next  example,  however,  <  output -function -card  >  s  will  be  required 
in  order  to  specify  some  of  the  components  of  the  output  functions  as 
"don't-cares". 

Example  2:   The  two  output  network  of  four  variables  shown  in 
Fig.  5.3.1.   This  is  the  same  network  used  in  Example  1,  but  this  time 
the  output  functions  will  not  be  assumed  to  be  completely  specified. 
Let  f  =  '  11001**01*10*111 '  and  f 2  =  '  0**110111*111011 '  be  the  required 
functions.  Also,  suppose  that  both  complemented  and  uncomplemented 
variables  are  desired  to  be  available  during  the  transformation.  Again, 
the  problem  will  be  to  reduce  the  number  of  gates  primarily  and  the 
number  of  connections  secondarily. 

For  this  problem,  the  following  values  must  appear  on  the 

<  problem-parameter-card  >: 

Cols.   l~k  k,   the  number  of  external  variables 

Cols.   5~8     2,  the  number  of  output  functions 
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Cols.    9~12     8>  the  number  of  gates  in  the  original  network 

Cols.   13-16   100,  the  value  of  A 

Cols.   17~20     1,  the  value  of  B 

Col.        2k  Y,  indicative  of  an  implicit  specification 

of  external  variables  and  the  availability 
of  both  complemented  and  uncomplemented 
variables 

Fig.  5.3.3  shows  the  setup  of  the  data  cards  corresponding  to 
this  problem.  Notice  the  differences  and  similarities  to  the  data  cards 
shown  in  Fig.  5.3.2.   The  <  problem-parameter -card  >  differs  only  in 
column  2k.      The  <  external -variable-card  >  s  are  missing  in  both  Fig.  5-3.2 
and  Fig.  5*3-3  since  the  external  variables  are  implicitly  specified 
for  both  problems.  The  <  output-  function-card  >  s,  however,  appear 
in  Fig.  5o3»3  but  not  in  5.3.2  since  they  are  necessary  to  specify  "don't- 
care"  components  which  do  not  occur  in  the  completely  specified  output 
functions  of  Example  1.  In  both  cases,  though,  the  <  connection-description- 
card  >  s  are  identical  since  the  original  networks  are  identical. 

By  allowing  "don't-care"  terms  in  the  output  functions,  and  by 

t 
allowing  the  use  of  both  complemented  and  uncomplemented  variables 

(even  though  the  original  network  employed  only  uncomplemented  variables), 

the  restrictions  during  the  transformation  process  are  loosened  (compared 

to  what  they  would  be  for  Example  l),  perhaps  permitting  a  network  of 


t  In  the  case  of  NETTRA-PG1,  -PI,  and  -P2,  it  is  useless  to  specify  Y 
rather  than  X  in  column  2k   for  this  example.  Since  the  original 
network  uses  only  uncomplemented  variables,  to  these  programs  which 
perform  "pruning"  procedures  (i.e.,  procedures  which  are  incapable  of 
adding  new  connections)  the  availability  of  complemented  variable  is 
not  meaningful. 
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less  cost  to  be  obtained. 

Notice  that  the  first  <  output-function-card  >  corresponds  to 
the  output  of  gate  1  and  the  second  <  output-function-card  >  corresponds 
to  the  output  of  gate  2.   This  must  hold  true  for  every  problem  in  which 
<  output-function-card  >  s  are  included;  the  gates  labeled  1,  2,  ...,  m 
must  correspond  to  the  output  functions  specified  on  <  output-function- 
card  >  s  1,  2,  . ..,  m,  respectively. 

Of  course,  the  printed  output  of  the  program  will  be  in  the 
same  format  described  in  Example  1. 

Example  3 :   The  three  output  network  of  six  variables  shown  in 
Fig.  5.3.^+.   The  outputs  will  again  be  assumed  to  be  incompletely  specified. 
In  fact,  only  the  following  11  input  combinations  will  be  specified  out 
of  a  possible  6k   ( =  2  ) : 


xl 

00000000001 

x2 

00000001110 

x3 

00000000011 

*k 

000011100  0  1 

X5 

00110010110 

x6 

01010101100 

Pl 

001100*0000 

P2 

11*1110110* 

F3 

11000001000 
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Additionally,  only  uncomplemented  variables  will  be  assumed  to  be  available, 
and  the  problem  will  be  to  reduce  the  number  of  gates  primarily  and  the 
number  of  connections  secondarily. 

For  this  example,  the  following  parametes  will  appear  on  the 
<  problem-parameter-card  >: 

Cols.    1 ~ k  6,  the  number  of  external  variables  . 

Cols.    5^8     3>  the  number  of  output  functions 

Cols.    9 ~ 12   11,  the  number  of  gates  in  the  original  network 

Cols.   13~l6  100,  the  value  of  A 

Cols.   17~20    1,  the  value  of  B 

Col.        2k         U,  indicative  of  an  explicit  specification 

of  external  variables  and  the  availability 
of  only  uncomplemented  variables 

Fig.  5.3.5  shows  a  possible  setup  of  the  data  cards  corresponding 
to  this  example.  Notice  that  in  this  example,  the  <ext ernal -variable - 
card  >  s  are  included,  whereas  in  the  two  previous  examples  they  were 
omitted.  Although  this  problem  is  not  too  realistic  (none  of  the  3 
functions  is  actually  a  6-variable  function),  it  demonstrates  the  input 
data  preparation  to  be  used  in  cases  where  many  external  variables  are 
present  and  a  high  percentage  of  "don't  care"  terms  exist. 

Again,  the  printed  output  from  the  program  will  follow  the 
same  format  described  in  Example  1. 
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APPENDIX: 
Program  Listings 


Following  are  the  FORTRAN  program  listings  for  the  three  programs, 
NETTRA-PG1,  NETTRA-P1,  and  NETTRA-P2,  respectively,  discussed  in  this 
manual.  Many  of  the  variables  and  arrays  used  are  defined  in  the  programs 
themselves. 


ft****************************************************************************  I 
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R    R 
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0    0 
0    0 
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****++++*+++*** ***++++***+++**++++**++*+**++++++*+*+++**++++++*+*+*++*++***++*, 


IMPLICIT  INTEGER**(A-T,V-ZfS)f  PEALIU)  PGl 

EDITION  BBBBBB88BBBBBBBBBBB8BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBPG1 

PGl 
NOTE:  ALL  COMMON  VARIBLES  MIGHT  NOT  BE  USED  IN  THIS  PROGRAM.       PGl 

PGl 

PGl 

•COLUMN'  OF  POTAB.  FOR  EACH  »ROW»  THE  ENTRY    PGl 

TELLS  GATE  WHERE  FN.  IS  REALIZED.  PGl 

•COLUMN*  OF  POTAB.   FOR  EACH  »ROW«  THE  ENTRY   PGl 

TELLS  HOW  MANY  CONNECTIONS  MUST  BE  ADDEO.     PGl 

PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
COST  OF  NETWORK  -  A  MEASURE  OF  NETWORK  SIZE.  PGl 

RECORDS  NO.  OF  ESSENTIAL  1«S  IN  EVERY  INPUT  TO  CURRENT  GC0PG1 


COMMON 
$3T: 

$LTH: 

$NOE: 


ft?M: 

At 

B: 

COST* 

ESS1S: 


VARIABLES: 
POINTS  TO  A 
II  THIS  COL. 
POINTS  TO  A 
IN  THIS  COL. 
POINTS  TO  A 
IN  THIS  COL. 
POW  IS  USED. 
POINDS  TO  A 
IN  THIS  COLUMN 
WEIGHT  FOR  NO. 
WEIGHT  FOR  NO. 


POTAB.  FOR  EACH  »ROW»  THE  ENTRY 
WHERE  FN.  IS  REALIZED. 
POTAB.   FOR  EACH  »ROW«  THE  ENTRY 
MANY  CONNECTIONS  MUST  BE  ADDEO. 
•COLUMN*  OF  POTAB.   FOR  EACH  »ROW»  THE  ENTRY 
TELLS  THE  NUMBER  OF  1-ERRORS  CREATED  IF  THIS 


•COLUMN* 


THE  ENTRY 


OF  POTAB.   FOR  EACH  MOW* 
TELLS  THE  PREFERENCE  WEIGHT. 
OF  GATES  IN  COMPUTING  COST  FUNCTION. 
OF  CONNECTIONS  IN  COMPUTING  COST  FUNCTION. 


(POSITIONS  IN  ESSIS  CORRES.  TO  GATES  NOT  FEEDING  GCO  ARE   PGl 

IGNORED!.  PGl 

FSUB1:  POINTS  TO  LAST  ELEMENT  IN  FSl.  «>G1 

F*l:  LISTS  (CONSECUTIVELY)  POSITIONS  OF  DESIRABLE  l»S  (FOR      PGl 

COVERING)  IN  A  CONNECTIBLE  FUNCTION.  PGl 

6H  LABEL  OF  A  PARTICULAR  GATE.  RG1 

GLEVELt  GLEVEL(GI)  TELLS  WHICH  LEVEL  OF  THE  NETWORK  GI  IS  IN.  PGl 

GSMALLJ  STORES  INTERMEDIATE  AND  FINAL  CALCULATED  CSPF'S.  PGl 

HLIST:  HLIST(I.J)  GIVES  NAME  OF  I-TH  GATE  (OR  EX.  VAR.)  IN  NET-   PGl 

WORK  LEVEL  J.  PGl 

IDXO:  LIST  OF  OOORDINATES  IN  CSPFE  OF  THE  GATE  UNDER  PGl 

CONSIDERATION.  PGl 

IDXOE:  LIST  OF  0-EAROR-COORDI NATES  IN  CSPFE  OF  THE  GATE  UNDER     PGl 

CONSIDERATION.  pGl 

IDXl:  LIST  OF  1-:OORDINATES  IN  CSPFE  OF  THE  GATE  UNDER  PGl 

CONSIDERATION.  PGl 

IDXIE:  LIST  OF  l-ERROR-COORDINATES  IN  CSPFE  OF  THE  GATE  UNDER     PGl 


0005 
0010 
0015 
0020 
0025 
0030 
0035 
00*0 
00*5 
0050 
0055 
0060 
0065 
0070 
0075 
0080 
0085 
0090 
0095 
0100 
0105 
0110 
0115 
0120 
0125 
0130 
0135 
01*0 
0145 
0150 
0155 
0160 
0165 
0170 
0175 
0180 


c 

CDNSIOERATI3N. 

t>Gl 

r 

IFLAG: 

S*ME  AS  EYEFLG  IN  SUBROUTINE  PROCII. 

PGl 

INC*mx: 

INC$MX(GI,GJ)>0  means  tmere  exists  a  connection  from  gate 

PG1 

c 

<!)R  EX.  VAU)  Gl  TO  GATE  GJ.   INCSNXC GI , 3 J )«0  IF  NOT. 

PGl 

r 

INPTCV: 

LISTS  FDR  EACH  CORRESPONDING  ENTRY  OF  F$l,  HOW  MANY  INPUTSPGl 

»• 

HAVE  A  »l«  IN  THE  POSITION  INDICATED  BY  F$l. 

PGl 

c 

IPATH: 

IPATHtGI)=l  MEANS  GATE  61  IS  ON  A  PATH  FROM  A  CERTAIN  GATEPG1 

r 

T0  AN  OUTPJT  GATE.   OTHERWISE  IPATH(GI)  «  0. 

PG1 

* 

IPRFD: 

IPREO(I,GJ)  GIVES  THE  NAME  OF  ^HF.    I-TH  GATE  OR  EX.  VAR.  INPG1 

r 
•-• 

A  LTST  OF  3ATES  AND  EX.  VAR.  FEEDING  GJ. 

PGl 

«• 

ISUCC: 

ISU:C(I,GJ)  GIVES  THE  NAME  OF  THE  I-TH  GATE  FED  BY  G J . 

PGl 

r 

JFLA3: 

SAME  AS  JAYFL3  IN  SUBROUTINE  PROCII. 

PGl 

c 

KEY*: 

A  FLAG  INDICATING  IF  ANY  ERROR  COMPENSATION  HAS  BEEN 

PGl 

r 

PERFORMED. 

PGl 

r 

KEYB: 

A  FLAG  INDICATING  IF  ANY  PRIMARY  0-ERROR-COORDINATES  HAS 

PGl 

c 

BEEN  COMPENSATED. 

PGl 

r 

KFLA3: 

SAME  AS  KEIFLG  IN  PROCII. 

PGl 

c 

LEVM: 

NUMBER  OF  LEVELS  IN  THE  NETWORK  (NOTE  EX.  VAR.  ARE  ALSO 

PGl 

r. 

ASSIGNED  LEVELS  JUST  LIKE  GATES). 

PGl 

c 

LGLIST: 

LGLIST(J)  TELLS  NO.  OF  GATES  AND  EX.  VAR.  IN  LEVEL  J  OF 

PGl 

r 

NETWORK. 

PGl 

r 

LIP: 

NUMBER  OF  PREDECESSORS  FOR  THE  GATE  UNDER  CONSIDERATION. 

PGl 

c 

LIPRED: 

LIPRED(GI)  TELLS  NO.  OF  IMMEDIATE  PREDECESSORS  OF  GATE  GI 

.PGl 

c 

LISTC: 

ORDERED  LIST  OF  CONNECTIBLE  INPUTS  TO  GCO.   OROEPED  BY 

PGl 

: 

DECREASING  NO.  OF  0«S  !N  GCO  COVERED. 

PGl 

r 

LISTL: 

ORDERED  LIST  OF  GATES  AND  EX.  VAR.  WHICH  ORIGINALLY  FED 

PGl 

r 

GCO  AND  WHICH  HAVE  NOT  YET  BEEN  DISCONNECTED.   OROERED  BY 

PGl 

^ 
«* 

DECREASING  NO.  OF  ESSENTIAL  l«S. 

PGl 

c 

LISUCC: 

LISUCC(GI)  TELLS  NO.  OF  IMMEDIATE  SUCCESSORS  OF  GATE  < OP 

PGl 

r 

EX.  VAR.)  GI  . 

PGl 

C 

LMTS2: 

UPPER  LIMIT  OF  THE  NUMBER  OF  ELEMENTS  IN  SET  S2. 

PGl 

: 

LPHTAB: 

FO*  GATE  GI,  LPOTAB(GI)  POINTS  TO  LAST  ROW  OF  POTAB 

PGl 

r 

C0N3ERNING  31. 

PGl 

c 

M: 

NUMBER  OF  NETWORK  OUTPUT  GATES. 

PGl 

c 

V: 

NUMBER  OF  EXTERNAL  VARIABLES  (OR  INPUT  FNC.I  AVAILABLE. 

PGl 

c 

NEPMAX? 

FOR  E'POR  COMPENSATION  PPOGRAMS.   IF  MORE  THAN  NEPMAX 

PGl 

c 

ERROR  POSITIONS  OCCUR  WHEN  A  PARTICULAR  SATE  IS  REMOVED, 

PGl 

PR03RAM  SKIPS  ATTEMPT  TO  COMPENSATE  FOR  THAT  GATE'S 

PGl 

r 

REMOVAL.   VALUE  CAN  BE  SPECIFIED  BY  USER,  0THERWISE  EOUAL 

PGl 

C 

TO  ONE  HALF  OF  N2  BY  DEFAULT. 

PGl 

r 

NM: 

SUM  OF  N  PLUS  M 

PGl 

C 

NM1: 

SUM  OF  NM  PLUS  1. 

PGl 

c 

NN2: 

PRODUCT  OF  N  4ND  N2. 

°G1 

NOSs 

NUMBER  OF  ELEMENTS  IN  SET  S. 

PGl 

c 

NOS1: 

NUMBER  OF  ELEMENTS  IN  SET  SI. 

PGl 

c 

N0S1SV: 

NUMBER  OF  ELEMENTS  IN  SET  SI  BEFORE  ENTERING  SUBROUTINE 

PGl 

RPLCF. 

PGl 

c 

NOS2: 

NUMBER  OF  ELEMENTS  IN  SET  S2. 

PGl 

r 

NOT1: 

NUMBER  OF  ELEMENTS  IN  SET  Tl. 

»G1 

r 

NDT1SV: 

NUMBER  OF  ELEMENTS  IN  SET  ^i  BEFORE  ENTERING  SUBROUTINE 

PGl 

c 

PPLCF. 

PGl 

r 

NOO: 

NUMBER  OF  ACTIVE  ELEMENTS  IN  ARRAY  IDXO. 

PGl 

C 

NOOE: 

NUMBER  OF  ACTIVE  ELEMENTS  IN  ARRAY  IDXOE. 

PGl 

C 

NOi: 

NUMBER  OF  ACTIVE  ELEMENTS  IN  ARRAY  IDX1. 

PGl 

c 

N01E: 

NUMBER  OF  ACTIVE  ELEMENTS  IN  ARRAY  IDX1E. 

PGl 

c 

NR: 

SUM  OF  N  PLJS  R. 

PGl 

c 

NRN2? 

PRODUCT  OF  NR  AND  N2 . 

PGl 

r 

N*PLC: 

NFPLC(I)  STORES  THE  NUMBER  OF  ELEMENTS  IN  RPLCUt*) 

PGl 

r 

FOR  1*1,2. 

PGl 

c 

Nl: 

SUM  OF  N  PLUS  1. 

PGl 

c 

N2: 

NUMBER  OF  DIFFERENT  INPUT  COMBINATIONS  TO  BE  CONSIDERED 

PGl 

(USUALLY  2  TO  THE  POWER  N). 


ORIGIN: 
P$: 


PCO: 


POINT*: 
POINTC: 
POINTLi 
POINTR: 
»>3TAB: 


PPOTABi 
RPLC: 


RSCONN: 

RTCONN: 

S: 

SETS: 

SETSl: 

SETS2: 

SETTl: 

STS: 
SUCSMX: 

SUMP: 
SUMS?: 

T; 

TIME: 

UNAME: 

VFSU91: 

VF$l: 


ORIGIN(GI)=l  MEANS  GI 
ORIGINIGI )«0  MEANS  GI 
P$(l,-)  CONSECUTIVELY 
EVERY  GATE  (FOR  EVERY 
P$(l,N2)  FOR  FIRST  EX 
SECOND  EX  \/AR;  ...  ; 


ORIGINALLY  CONNECTED  TO  GCO. 
DID  NOT  FEED  GCO  ORIGINALLY. 
LISTS  OUTPUTS  OF  EVERY  EX.  VAR.  AND 
INPUT  COMBINATION):  P$(l,l),..., 
VAR;  P$( 1,N2*1) ,... ,P$(1,2*N2)  FOR 
P$(l,N*N2*l), ...,  P$(1,N*N2+N2)  FOR 


FIRST  GATE;  ETC.   P$(2,-)  IS  USED  AS  WORK 

CALCULATIONS  ASSOCIATED  WITH  P$(l,->. 

FOR  ERROR  COMPENSATION  PROCEDURES.   PCO 

REMOVED  FRO*  ORIGINAL  NETWORK  TO  OBTAIN 

NETWORK. 

NOT  USED. 

POINTS  TO 

POINTS  TO 

POINTS  TO 

POSSIBLE 


LAST  ELEMENT 

LAST  ELEMENT 

LAST  ELEMENT 

OUTPUT  TABLE. 


SPACE  FOR 

IS  THE  GATE 
CURRENT  ALTERED 


IN  LISTC. 
IN  LISTL. 

IN  RNEC1  (IN  SUBROUTINE  SUBSTI) 
HOLDS  INFORMATION  ABOUT  ALL 


NOTE  SOME 
PPLC(1,*) 

RPLC(2,*» 


PGl 

PG1 
PGl 

PGl 

PGl 
RG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
»G1 
PGl 
PGl 

PGl 
PGl 
PGl 
PGl 
°G1 
P31 
RG1 
PGl 
RG1 
PGl 


COMBINATIONS  OF  CONNECTIONS  TO  FORM  NEW  (AND  HOPEFULLY 
USEFUL)  FUNCTIONS. 

FOR  GATF  GI,  PPOTAB(GI)  POINTS  TO  FIRST  OF  A  SEQUENCE  OF 
ROWS  OF  POTAB  CONCERNING  GI . 

NUMBER  OF  GATES  IN  THE  NETWORK  (EXCLUDES  EX  VAR,  ALSO 
OF  R  GATES  MAY  BE  ISOLATED). 

STORES  THE  SELECTED  GATE'S  IP  GATES  WHICH  HAVE 
ERROR-COORDINATES  OF  WEIGHT  2  OR  ABOVE. 
STORES  THE  SELECTED  GATE«S  IP  GATES  WHICH  HAVE 
AT  LEAST  ONE  ERROR-COORDINATE  OF  WEIGHT  I. 
LIST  OF  CONNECTIONS  ADDED  TO  A  NETWORK  (IN  CODED  FORM). 
LIST  OF  CONNECTIONS  REMOVED  FROM  A  NETWORK  (COOED  FORM). 
NO.  OF  CONNECTIONS  ADDED  TO  A  NETWORK.   POINTS  TO  LAST 
ENTRY  IN  RSCONN. 
SET  S  CONSISTING  OF  INPUTS  OF  THE  GATE  UNDER  CONSIDEPATIONPG1 
WHICH  ARE  TO  BE  REPLACED  IF  POSSIBLE.  PGl 

SET  SI  CONSISTING  OF  ELEMENTS  OF  SET  S  WHICH  CAN  BE        PGl 
REPLACED  BY  ELEMENTS  IN  SET  S2.  PGl 

SET  S2  CONSISTING  OF  FUNCTIONS  WHICH  ARE  CANDIDATES  FOR    PGl 
REPLACING  ELEMENTS  IN  SET  S.  PGl 

SET  Tl  CONSISTING  OF  ESSENTIAL  ONES  COVERED  BY  ELEMENTS  INPG1 

SET  SI.    PGl 
STARTING  ELEMENT  OF  SET  S.  PGl 

SUC*MX(GI,GJ)>0  MEANS  GATE  GJ  IS  A  SUCCESSOR  OF  GATE  GI.   PGl 
SUC$MX(GI,5J)«0  IF  NOT.  PGl 

SUM  OF  ALL  ACTIVE  INPUTS  OF  THE  GATE  UNDER  CONSIDERATION.  PGl 
SUM  OF  ALL  ACTIVE  ELEMENTS  OF  SET  S2.  PGl 

NUMBER  OF  CONNECTIONS  REMOVED  FROM  A  NETWORK.   POINTS  TO   PGl 
LAST  ENTRY  IN  RTCONN.  PGl 

USED  TO  STORE  AMOUNT  OF  ELAPSED  COMPUTATION  TIME.  PGl 

MNEMONIC  NAMES  FOP  FXTERNAL  VARIABLES  AND  GATES.  PGl 

POINTS  TO  LAST  ELEMENT  IN  VF$l.  PGl 

SIMILAR  TO  F$l,  EXCEPT  THIS  LISTS  JUST  COMPONENT  POSITIONSPG1 
(OF  0»S  IN  CSPF  VECTOR  OF  GCO)  COVERED  ONLY  BY  REMAINING   PGl 


ORIGINALLY  CONNECTED  INPUTS  TO  GCO. 


COMMON 
COMMON 

1      , 

2 

COMMON 


NEPMAX 
N 
R 

NM 
LFVM 

isucc(*o,*o» 


M 

N2 

KFLAG 

NRN2 

LISUCC(*OI 


A 

Nl 

JFLAG 

NMl 

IPRED(*0,*0) 


B 

NR 

COST 

NN2 

LIPPED(*0) 


PGl 
PGl 
PGl 

PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 


0490 
0495 
0500 
0505 
0510 
0515 
0520 
0525 
0530 
0535 
05*0 
05*5 
0550 
0555 
0550 
0565 
0570 
0575 
0580 
0585 
0590 
0595 
0600 
0605 
0610 
0615 
0620 
0625 
0630 
0635 
06*0 
06*5 
0650 
0655 
0660 
0665 
0670 
0675 
0680 
0685 
0690 
0695 
0700 
0705 
0710 
0715 
0720 
0725 
0730 
0735 
07*0 
07*5 
0750 
0755 
0760 
0765 
0770 
0775 
0780 
0785 
0790 


I 

2  , 

common 


lNC$MX(40, 
3LFVEHV0) 

T 

IFLAS 


1  ,F$UB1 

2  ,LISTL(V0) 

3  .POINTR 
:^MMD^    P3TAB1200, 


990 


1000 


1005 


10 


21 


25 


28 


,RPLC (?, VOI 

, IDXIE(32) 

,SETS1( VO) 

,STS 

.LIP 

,N00 

♦  $LTH 

;ommdn 

DIMENSION  CSTLISm 
DATA  K0UNT5  /O/,  UB 
RFAD(5,1000,END=500 
NFPMAX  IS  THE  MAXIM 
FOPMAT(20AV/5I* ,AV, 
<EYXC»0 

IP(UC.NE.UBLANK)  KE 
CM.L    PAGE 
CALL  LINE(IO) 
KOUNT5=KOUNT5*l 
PRINT  2,  K0UNT5 
FORMAT (20X, •***  OPT 
CALL  LINE(V) 
PRINT  1005,  UHEAO 
F0RM,AT(25X,20A*) 
CALL  LINE(V) 
PRINT  10,  N,M,A,B 
F3RMAT(30X, 'NUMBER 

1  30X, 'NUMBER 

2  30X, 'COST  C3 

3  47X, 
CALL  LINE(l) 
IF(KEYXC.NE.O)  GO  T 
PRINT  21 

F0RMAT(1H0,29X,» 

GO  TO  30 
CONTINUE 

PRINT  28 

FORMAT(1HO,29X,« 

X,  Y •) 


0),  P$(2,1280) 
,  HLIST(V0,40 
t  S 

,ESSIS(V0) 
,LISTC(40) 
,ORIGIN(VOI 
,VF$J81 
,LP0TAB(40) 
,IDX0E(32I 
,SETT1(32) 
,SETS(VO) 
,SETS2(200I 
,KEYA 
,N01P 
,$NOE 
,N0S1SV 

AD(20) 


VOI,  SUC*MX(*0,V 

,  LGLIST(VO) 

,  RTCONNflOOl 

.POINTA 

,INPTCVC32I 

,POINTL 

,VF$1(32» 
V2),PP0TAB( VO) 

,10X0(32) 

,SUMPC32) 

,N0S1 

,SUMS2(32) 

,NOOE 

,NOl 

,$PW 

N3T1SV 
M,UGATE(VD),UHE 
LANK/'     •/ 
I  JHEAO,  N,  M,  R 
JM  ALLOWABLE  NUM 
IV) 

YXC«1 


IMAL  NOR  NETWORK  ***• , 50X, • PROBL EM  N3.=  «,IV  ) 


,  UNAME(VO) 
)  ,  TIME 

,  RSCONN(IOO) 
,F$1(32) 
,POINTC 
,IPATH(*0) 
,GSMALLCV0,32 
,NPPLC(2) 
,10X1(32) 
♦  N0T1 
,NOS 
,N0S2 
,KEYB 
,SGT 
tGI 
,L'^TS2 


,  A,  B,  JC,  NEPMAX 
BER  OF  ERROR  POSITIONS 


OF  VARIABLES  =',14  // 
3F  FUNCTIONS  »',I4  // 
EFFICIENT  \       =',14// 
•B   »',IV) 

3  25 

UNCOMPLEMENTED  VARIABLES   X •) 

BOTH  COMPLEMENTED  AND  JNCOMPl EMENTED  VARIABLE 


VA 


1 
30  CONTINUE 

CALL  LINE(5) 
:«****  SET  UP  EXTERNAL 
N2=2**N 

IF(NEPMAX.EO.O)NEPM 
H=N*Y2 
J  =  N2 
L=  1 
1  =  0 

DO  1011  II»1,N 
J  =  J/2 
L  =  L*2 
SN=  1 

DO  1010  LL=1,L 
SN=-SN 


RUBLES  ****♦ 
AX  =  N2/2 


PG1 
PG1 
PGl 
P-l 
PGl 
PGl 

)PG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
»R1 
PGl 
PS1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
>G1 
PGl 
P31 
PGl 
PGl 
°G1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 

SPG1 
PGl 
PGl 
P51 
PGl 
PGl 
PGl 
PGl 
P31 
PGl 
PSi 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 


07< 

08;. 

or: 

08! 
081 


V  =  (H-SN)/2  PGi  1100 

DO  1009  JJ*1,J  PGI  1135 

1*1*1  PGI  1110 

P$(1,I)=V  PGI  1115 

IF(KFYXC.NE.O)P$(l,I+HI*l-V  PGi  1123 

1039    CONTINUE  PGI  1125 

1010  CONTINUE  PGI  1133 

1011  CONTINUE  PGi  1135 
IF(KEYXC.NE.0l  N*N«-N  PSl  1140 
Nl«N«-l  »Gl  1145 
NM*N*M  PGI  1150 
NM1«NM*1  PGI  1155 
NN2  =  N*N2«-1  PGi  1160 
N»*N*P  PGI  1165 
NRN2*NR*N2  PGI  1170 
CALL  OUTPUT(INC$NX,<EYXC)  PGI  1175 

*****  HEAD  in  SETWPRK  INFORMATION  AND  SET  UP  INCSMX  *****  PGI  1183 

READ  1001,    CNTLIS  PGI  1185 

1301  F0RMAT(16I5)  PGI  1193 

DO  1115  GI*1,NR  PGI  1195 

DO  1115  GJ=1,NR  PGI  1200 

1115  INCSMX(GT,GJ>=0  PGI  1235 

DO  1120  1=1,144  PGI  1210 

ITEM  =  CNTLIS<I  )  PGI  1215 

IF( ITFM.EQ.3I  GO  T3  1119                                             PSl  1220 

SI=ITEM/100  PGI  1225 

GJ=ITEN-100*GI  PGI  1233 

INCSMX(GI,SJ)*1  PGI  1235 

GO  TO  1120  PGI  1240 

1119  C0ST=A*R+B*(!-1I  PGI  1245 
GO  TO  1130  PGI  1250 

1120  CONTINUE  PGI  1255 
1130  CONTINUE  PGI  1260 

CALL  SURNET  PGI  1265 

C4LL  PVALUE  PGI  1270 

CALL  LINE(4I  PGI  1275 

PRINT  1140,  COST  PGI  1280 

1140  F0RMAT(Z0X,»  ORIGINAL  NETWORK     COST*1,  15)  PfU  1285 

CALL  LINEC4)  PGI  1290 

CALL  TRUTH(P$,1»  PGI  1295 

CALL  LINEC4)  PGI  1300 

CALL  CKT(!NC$MX,GLEVEL)  PGI  1305 

C  PGI  1313 

:*****  ENTRY  REDUNDANCY  CHECK  *****  PGI  1315 

S  =  0  PGi  1320 

T  =  0  ^Gl  1325 

CALL  JNNECE  PGi  1330 

GATES  =  M  PGI  1335 

C  =  0  °G1  1340 

DO  4  GI  *   1,NR  PGI  1345 

C  *  C  ♦  LISUCCtGI)  PGI  1350 

IF(GI.LE.NM)G3T04  PGI  1355 

IF(LISUCC(GI).GT.0)GATES=GATES+1  PGi  1360 

4  CONTINUE  PGI  1365 

OLDCST  =  A*GATES  «•  8*(C)  pGl  1370 

T«0  PGI  1375 

S=0  PCI  1380 

C      INITIALIZE  TIMER  T3  10  MINUTES                                      pGl  1385 

C«LL  STIMEZC60000)  PGI  1390 

TIME  =  KTIMFZ(O)  PGI  1395 

C****    PROCEDURE   PROCIP  pGl  1430 


:all  prhcipjh 

c    call  for  elapsed  ti a  e  it'}  h0 

TIME    «    KTIMEZ(O)    -    TIME  a?J    Ul 

CALL    I  INEU)  ^J    Ul 

PRINT    3915  R1    U2 

3916    FnRMAT(20X,'TIME    ELAPSED    «',I8,»       C ENT ISECONDS • )  pri    J 2 

3915    P3RMAT(20X,'NETVORK    DERIVEO   BY    PROCIP')  Bl,     'J! 

PRINT    3916, M^F  bl    l*' 

CALL    LINEC*)  PRl    m 

CALL    TPUTH(P$,1)  PG1    U* 

CALL    LINE<*>  PGl    U5 

CALL    CKT<INC$MX,GLEVEL)  If!    J*5 

GATES    «    M  jl    **6 

C    «    0  °G1    m 

D?    36    GI    *    1,NR  PGl    U7 

C   -    C    ♦    LISUCC(GI)  p?.1    }*J' 

IF(GI.LE.NM)    GO   rq    36  J*j    l*Bi 

IF(LISUrC(GI).GT.O)    GATES    »    GATES    «■    1  prV    JJ!. 

36  CONTINUE  PG1  U' 
NEWfST  =  A*SATES  ♦  8*C  PGf  J*'| 
IF(NEWCST.LT.nLDCST)SO  TO  37  «*  J*?; 
PRINT    105  P?I    153! 

105    FORMATdH    ,10X,'NO    REDUNDANCY    FOUND.')  !pj    !^! 

GO    TO    990  Rl    151! 

37  CALL    LINE(3)  J"    152C 
PPINT    3?0,NEWCST  pG1    "J; 

320    "RTnT990,f*    *    NET-DR<    0ERIVED   8Y    PR0CIPV9X,*    C3ST- ,I5,«.«|  PSl    [535 

500    STOP  PSl    15*C 

END  °J\    I5*5 

PSl    1550 

SUBROUTINE  MIN 12 < IMP*OV)  p.. 

E      the  NAME  ATTEMPTS  t3  INDICATE  THAT  THIS  SUBROUTINE  IS  A  MINIATURE  PG1  15fc5 

C      VEPSIDN  OF  PRnrEDURE  II  (PROCIII  -  ACTUALLY,  THIS  ROUTINE  ONLY  ?t\    "" 

C      RFMQVFS  CONNECTIONS,  NONE  ARE  ADDEO  »,   }„; 

c      IMPLICIT  INTEGER*4U-T,V-Z,$)f  REAL(U)  pg{  JJJj 

C      DEFINITIONS  OF  'COMMON'  VARIABLES  CAN  BE  FOUND  IN  MAIN  PROGRAM.  PG1  1590 

C      VARIABLE  DEFINITIONS:  ^}  \5ll 

r      rEnlrcJ  2iJ|  £c  A  r!l2R£TV  CANDIDATE  ™  DISC0NNE:T  FROM  GATE  GCO.  PGl  1605 

C      CHOICE:  NAME  OF  A  GATE  CHOSEN  TO  BECOME  A  COVER.  pri 

C      COMPNT:  A  COMPONENT  OF  AN  INTERMEDIATE  CSPF  VECTOR.  »ri  16I5 

C       EFLAG:  SIGNALS  WHICH  ENTRY  POINT  USED.  pr,  un 

C      FEEOGT:  A  GATE  FEEDING  GATE  'GATE'.  prJ  }?,» 

C       FSUBOt  NUMBE*  OF  'NECESSARY  ZEROS'  LISTED  IN  F$0.  pc}  {l™ 

C         F$3:  LISTS  CONSECUTIVELY)  POSITIONS  OF  NECESSARY  ZEROS  IN  A  PG1  1635 

C             CONNECTABLE  FUNCTION  VECTOR.                     »  *«  «  jui  i**> 

C       GATE:  NAME  OF  A  SATE.  p^f  !*7° 

C      GCOUNT:  A  COUNTER.  pGl  J*:! 

C      SOROER:  A  SPECIAL  ORDERING  OF  GATES  AND  EXTERNAL  VARIABLES  SUCH  PSl  1655 

p      ».»„«   THA   M0  GATE  SUCCEE°S  *  PREDECESSOR  IN  THE  ORDERING.  PG1  1560 

C      MARKED:  MARKED(GI)=l  FOR  GI  FEEDING  'GATE'  INDICATES  THAT  GI  HAS  PGl  1665 

C              ALREADY  BEFY  ASSIGNED  NECESSARY  ZEROS  CORRESPONDING  TO  PG1  1670 

C              '1'  COMPONENTS  IN  THE  CSPF  VECTOR  FOR  'GATE'.  PGl  1575 

-  J!  m^cES  °F  GATES  IN  *  CERTAIN  LEVEL  0F  THE  NETWORK.  PGl  1680 

-  SELECT:  NAME  OF  AN  INPUT  SELECTED  AS  A  CANDIDATE  FOP  DISC0NNECTI0NPG1  1685 
X  FROM  SATE  'GC3'.  pri  .,,« 
C           T:  COUNTS  REMOVED  CONNECTIONS.  PGl  1695 


TnRTgp 


TPPTMT 

TIPPED 

T2PRED 

T1SUB 

T2SUB 

USED 


*    SPECIAL    ORDERING    OF    GATES 
THAT    VARIABLES    COME    FIRST    F 
NUMBERS    OF    OUTPUTS    (TIES    AR 
POINTER    TO    TORDEP. 
LIST    OF    OCO'S    PREDECESSORS 
LIST    OF    GCO'S    PREDECESSORS 
A    POINTER    TO    T1PRED. 
A    POINTER    TO    T2PPED. 
USEO(GI)=l     MEANS    GI     IS    AN    0 
SOME    O-COMPONENT    OF    'GATE'. 
IN    BEGINNING    OF    PROGRAM.) 


AND  EXTERNAL  VA 
OLLOWED  BY  GATES 
E    BROKEN    BY    GOPO 

AT    ONE    STAGE    GF 
AT    ONE    STAGE    OF 


RUBLES  SUCH 

WITH  DECREAS 
ER). 

COMPUTATION. 
COMPUTATION. 


UTPUT  G*TE,  OR  I 
(  IT  ALSO  HAS  A 


S  A  COVER  FOP 
TEMPORARY  USE 


niJNT,  I, II  ,  J,Kf  L,MOST,  OtTCCUNT,  X,XX,Y   ARE  USED  AS 


JUST  TEMPORAP 
VARIABLE 


H3W  tq  INCREASE  CAPACITY  OF  SUBPCUT 

DI  MENS  I TN:  TlPRED(X),T2PPED(X)fG0RD 

MAPKED(X) ♦USED(X),TORDER 


INE. 
ERCXIf 

(X)  -    X    EQUAL 

OF    GATE 

VARIABL 

F$0(Y)    -    Y    EQUAL    TO:    2**(MAX    ALLOWED    NO. 


COMMON 


CCMMOK 
C3MM0N 


COMMON  NEPMAX 
COMMON    N 

R 

MM 

LEVM 

ISUCC(40»4 

INC$MX(40t 

0LEVEL(40) 

T 

I  FLAG 
F$UB1 
LISTL(40) 
PCINTR 

P0TAB(200, 
RPLC (2,40) 
IDX1EC32) 
SETS  1(40  I 
STS 
LIP 
NCO 
tLTH 

ION  T1PRED(4J 
ION  USE0(40) t 
=  0 


Common 


0) 
*0) 


COMMON 

DIMENS 

DIMENS 

IMPROV 

T  =  0 

030ER 

EFLAG 

GO  TO 

THIS  E 

ENTRY 

EFLAG 

CONTIN 

COUNT 

Dn  1  I 

NMINLV 

IF(NMI 

DO  2    J 

COUWT 

COPOER 


M 

N2 

KFLAG 

NRN2 

LISUCC(40) 

SUC$MX(40,* 

LGLIST(40) 

RTCONNt 100) 

,P0INTA 

,INPTCV(32) 

♦POINTL 

,VF$1(32) 
42),PP0TA8(40) 

, 10X0(32) 

,SUMP(32I 

,NOSl 

tSUMS2(32) 

,NOOE 

tNCl 

,$PW 

N3T1SV 
),T2PRED(*0),G0R 
T0RDER(40) 


0) 


A 

Nl 

JFLAG 

NM1 

IPRED(40,40) 

P$(2t 1280) 

HLIST(40,40) 

S 

, FSS1S440) 
,LISTC(40) 
.ORIGIN (40) 
,VFSUB1 
,LP0TAB(40) 
,IDX0E(32) 
.SETTK32) 
,SETS(40) 
,SETS2(200) 
,KEYA 
,N01E 
♦  $NOE 
,N0S1SV 
DER(40),F$0(32), 


TO  MAX  NUMBE 
S  PLUS  EXTERN 
ES. 

OF  EX.  VAR.) 


i  B 

«  NR 

,  COST 

,  NN2 

»  LIPRED(40) 

,  UNAME(40) 

t  TIME 

,  RSCONN( 100 

,F$1(32) 

,POINTC 

,IPATH(40I 

,GSMALL(40,3 

»KRPLC(2) 

,10X1(32) 

,N0T1 

,NOS 

,N0S2 

,KEYB 

,$GT 

,GI 
,LMTS2 
MARKED(40) 


GATFS    IN    GOPDER 

=    0 

63 

NTRY  POINT  FOR  CALCULATION  OF  GOPDER  ONLY 

FORMGO 

=  1 

UE 

=  0 

=1,LEVM 

=  LGLIST(I) 
NLV.EQ.O)GOT0i 
=1, NMINLV 
=  COUNT  ♦  I 
(COUNT)  =  HLISTUfl) 


PG1 
EDPG1 
PGl 
PG1 
PGl 
PG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
Y  PGl 
S.PG1 
PGl 
PGl 
R  PGl 
ALPG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
)  PGl 
PGl 
PGl 
PGl 
2)PG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PS1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 


1700 
1705 
1710 
1715 
1720 
1725 
17  30 
1735 
1740 
1745 
1750 
1755 
1760 
1765 

17  70 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1855 
1860 
1865 

18  70 
1875 
1880 
1885 
1890 
1895 
1900 
1905 
1910 
1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 


52 


51 


53 


56 


50 


55 


5* 


57 


58 

59 

3 


62 


CONTINUE 

CONTINUE 

IF(EFLAG.EQ.l JRETURN 

CALCULATE  NUMBFR  OF  OUTPUTS  OF  EACH 

(THE  ARPAY  •USED'  IS  USED  HERE  JUST 

DO  51  I*N1,NR 

TCnuNT  =  0 

DO  52  J=1,NR 

IF( IMC$MX( I, J).EQ.L)T:0UNT  »  TCOUNT 

CONTINUE 

T:"UNt  NOW  CONTAINS   THE  NUMBER  OF 

USEO( I  )  *  TCOUNT 

CONTINUE 

MOST  *  0 

DO  53  I  =N1,NR 

IF (USED(I).GT. MOST) HOST  »  USED(I) 

CONTINUE 

DO  56  I*  1,N 

TORDEPf  I)  =  I 

TPOINT  =  Nl 

MOST  =  MOST  ♦  1 

MOST  =  MOST  -  1 

IFCMOST.LT. 01^0  TO  54 

DO  55  1=1, NR 

II  =  GOPDERd  ) 

IF< II.LE.N1G0  TO  55 

IF(USED(II ).NE.MOST)GO  TO  55 

TORDER(TPOINT)  *  II 

TPOINT  »  TPOINT  ♦  1 

CONTINUE 

GO  TO  50 

CONTINUE 

INITIALIZE  GSMALL 

DO  4  I*N1,NM 

X  =  (I-U*N2 

DT  4  J  =  1,N2 

Y  =  P$( ltX*JI 

IF(Y.EQ.O)GSMALL(I, J)  *  -100 

IFCY.EO.DGSMALLII  ,  J)    =    1 

IF{Y.EQ.-l)GSMALL(ItJ)»0 

CONTINUE 

EFLAG  «  0 

GO  TO  57 

ENTRY  INITGS 

EFLAG  -  1 

DO  3  1*1, NR 

USFDU  )  =  0 

IF(  I.LT.NDGO  TO  58 

IFC I.GT.NM)  GO  TO  58 

GO  n    3 

DO  59  J  *  1,N2 

GSMALL(ItJ)*  0 

CONTINUE 

DO  62  I  *  N1,NM 

USED( I)  =  1 

CONTINUE 

INITIALIZATION 

DO  34  I*1,NR 

GATE  =  GORDER(  I) 

IF(GATE.LT.Nl I  GO  TO  34 

XX=  LIPRED(GATE) 


GATE 
TEMPORARILY! 


♦  I 


OUTPUTS  OF  GATE  I 


PG1 

2005 

PG1 

2010 

PG1 

2015 

PGi 

2020 

PG1 

2025 

PGI 

2030 

PGI 

2035 

PGI 

2040 

PGI 

2045 

PGI 

2050 

PGI 

2055 

PGI 

2060 

P51 

2065 

PGI 

2070 

PGI 

2075 

PGI 

2080 

PGI 

2085 

PGI 

2090 

PGI 

2095 

PGI 

2100 

PGI 

2105 

PGI 

2110 

PGI 

2115 

PGI 

2120 

PGI 

2125 

PGI 

2130 

PGI 

2135 

PGI 

2140 

PGI 

2145 

PGI 

2150 

PGI 

2155 

PGI 

2160 

PGI 

2165 

PGI 

2170 

PGI 

2175 

PGI 

2180 

PGI 

2185 

P31 

2190 

PGI 

2195 

PGI 

2200 

PGI 

2205 

PGI 

2210 

PGI 

2215 

PGI 

2220 

PGI 

2225 

PGI 

2230 

PGI 

2235 

PGI 

2240 

PGI 

2245 

PGI 

2250 

PGI 

2255 

PGI 

2260 

PGI 

2265 

PGI 

22  70 

PGI 

2275 

PGI 

2280 

PGI 

2285 

PGI 

2290 

PGI 

2295 

PGI 

2300 

PGI 

2305 

IF {XX.EQ.O 
Ft'JfU    =    0 
FSUBO    =    0 
DC    35    J=l, 
CTMPVJT    =    G 

IFfCOMPNT. 

IFtCO^PNT. 
IF(COMPNT. 
F4UB0  =  F$ 
FtO(  PS'JPO) 

GO  n  35 

IFICHMPNT. 
FtU^l  =  F$ 
Ftl( F$UP1) 
CONTINUE 
IF( FSU81.E 
DO  33  K=lf 
FEEDGT  =  I 
X  =  (FEEDG 
DO    39    L=lt 

Y  =  p$1(L) 
IF(P${  1,X  + 

IF(GSMALL( 
IF(GSMALL( 
IF(G$MALL( 

GSMALLiGAT 
GO    TO    39 
SS^ALUGAT 
CONTINUE 
CONTINUE 
DO    60    K=l, 
«AR*ED(  I  PR 
90    41    K=l, 
X    =    3S"ALL 
IFIX.EQ.-l 
IFIX.EQ.-2 
X    =    -X 
GSM«ILI +  X, 
USED(X)     = 
IP(M4RKED( 
^A°KED(X) 
OH    \2    L  =  l, 

Y  =    GSMALL 
IF(Y.GT.LO 
r,S"ALL(+X, 
CONHNUE 
CONTINUE 
CONTINUE 
IF(EFLAG.E 
INITIALIZE 
GCOUNT    =    o 
INCREMENT 
GCOUNT    =    G 
ARE    ALL    GA 
IFIGCCUNT. 
IF(T.GT.O) 
IF( IMPPOV. 
IF    HFPE,     N 
CALL    SU«NE 
rALL    PVALU 
RETURN 


JGCTP34 


N2 

SMALL(GATFtJ) 
EQ.OIGO  TO  35 
LT.OIGO  TO  36 
GE.1000)  GO  TO 
UBO  +  1 
=  J 


35 


LE.-1000)  GO  TO  35 
UBl  +  1 
=  J 

Q.OIGO  TO  34 
XX 

PREO(K,GATE) 
T-1)*N2 

F$UBl 

Y).LE.O)00  TO  39 
FEEDGT, Y) .GT. 1000) GOTO 3 9 
GATE,Y).EQ.-200)G0T039 
GATE,Y)  .E0.-100JG0  TO  40 
E,Y)  =  -200 

E,Y»  =  -FEEDGT 


XX 

ED(K,GA^E ))  =  0 

F$U«1 

(GATF,F$L (K) ) 

00)GH  TO  41 

00)GCT041 

F$1(K) )=i 
I 

X).EQ.1)G0T041 

=  1 

F$UBO 

( X,F$0(L) I 

OO.OR.Y.LT.-IOOOIGO  TO  42 

F$0(L)  )=-100 


0.1  JRFTURN 
COUNTER  Tn  LOOP 


ONCE  FOR  EACH  GATE 


GCOUNT 
COUNT  ♦  1 
TES  EXHAUSTED? 
LE.NRJGO  TO  6 

IMPRPV  =  1 
FQ.O)PETJRN 
ETWOPK    WAS    ALTERED, 

T 

E 


SO  UPDATE  ARRAYS 


PG1 
PG1 
PCI 
PG1 
P01 
PG1 
PG1 
PG1 
PG1 
PG1 
PG1 
PG1 
PGl 
PGl 
PG1 
PGl 
pgi 

PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
<>Gl 
PGl 
PGl 
<>Gl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
=>G1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
°G1 
PGl 
»G1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 

PGl 
PGl 


2310 
2315 
2320 
2325 
2330 
2335 
2340 
2345 
2350 
2355 
2360 
2365 
2370 
2  3  75 
2380 
2385 
2390 
2395 
2400 
2  4  05 
2410 
2415 
2420 
2425 
2430 
2435 
2440 
2445 
2450 
2455 
2460 
2465 
2470 
2475 
2480 
2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 
2525 
2530 
2535 
2540 
2545 
2550 
2555 
2560 
2565 
2570 
2575 
2580 
2585 
2590 
2595 
2600 
2605 
2610 


6  GCO  *  GCRDER(GCOUNT)  PGL  2615 
IS  GCO  AN  ISOLATED  GATE  OR  EXTERNAL  VARIABLE?  PGl  2620 
IF(GC0.LE.N)G0T05  PGl  2625 
DO  8  I»l,N2  PGl  2630 
IF  (GSMALLiGCO,  D.GE.l  )G0TO7  PGl    2635 

8  CONTINUE  PGl  2640 
IF  HERE,  GATE  IS  ISOLATED  -  REMOVE  INPUTS  PGl  2645 
X  =  LI  PPED(GCO)  PGl  2650 
IF( X.EO.0JG0T05  PGl  2655 
DJ    9     1  =  1, X  PGl    2660 

Y  =  IPREDIItGCO)  PGl  2665 
INCSMX( Y,GCO)  *  0  PGl  2670 
RECORD  THE  DISCONNECTION  PGl  2675 
T    =    T    ♦    1  PGl    2680 

9  CONTINUE  PGl  2685 
GOTO  5  PGl  2690 
REMOVE    UNNECESSARY    CONNECTIONS    T0    GCO    IN    THE    NEXT    FEW    SECTIONS            PGl    2695 

PGl    2700 

CALCULATE    F(GCO)  PGl    2705 

7  FSUB1  =  0  PGl  2710 
DO  10  1=1, N2  PGl  2715 
IF(GSMALL(GCO,I).GE.0)GOTO10  PGl  2720 
FSUB1  =  F*U81  ♦  1  PGl  2725 
F*1(F$U81)    =     I  PGl    2730 

10  CONTINUE  >Gl  2735 
DO    11     I=1,F$UB1  PGl    2740 

11  INPTCV(F$1( II)  *  0  PGl  2745 
X  =  LIPRED(GCO)  PGl  2750 
DO  2221=1, X  PGl  2755 
ESS1S(IPRED(I ,GCOI)    =    0  PGl    2760 

222  CONTINUE  PGl  2765 

T1SUB  =  0  PGl  2770 

T2SUB  =  0  PGl  2775 

DD  48  I  =  1,NR  PGl  2780 

IF( INC$MX(I,GCO) .EQ.0IG0T048  PGl  2785 

T1SUB  =  T1SUB  ♦  1  .                                   PGl  2790 

TIPRED(TISUB)  =  I  PGl  2795 

48  CONTINUE  PGl  2800 

17  DO  18  1=1, X  PGl  2805 

Y  =  (TIPREDI I  )-l )*N2  PGl  2810 
DO  19  J=l,F$UBl  »G1  2815 
Q  =  F$1(J)  PGl  2820 
IF(P$(lf Y+0).NE.1)G0  TO  19  PGl  2825 
IF(  INPTCV(Q).LE.O)  GO  TO  20  PGl  2830 
INPTCV(G)  =  INPTCV(Q)  ♦  1  PGl  2835 
GO  TO  19  PGl  2840 

20  IF(INPTCV(Q).LT.0)GO  TO  21  PGl  2845 
INPTCV(Q)  =  -T1PREDU)  PGl  2850 
GO  TO  19  PGl  2855 

21  INPTCV(Q)  =  2  PGl  2860 
19  CONTINUE  PGl  2865 

18  CONTINUE  PGl  2870 
MARK  ESSENTIAL  l'S  PGl  2875 
DO  22  I=1,F$UB1  PGl  2880 
0  =  INPTCV(F$1 (I ))  PGl  2885 
IF(Q.GE.O)GO  TO  22  PGl  2890 
ESSIS(-O)  =  ESSIS(-Q)  ♦  1                                           PGl  2895 

22  CONTINUE  PGl  2900 
46  SELECT  =  0  PGl  2905 

BESTSL  =  0  PGl  2910 

DO  45  L=1,X  PGl  2915 


0    =    TIPRED(L) 

IF(  IMCSN-XtOtGCO)  .EQ.0IG0T045 

IF<ESS1S<0).GT.O)GOT045 

IF(SELECT.EQ.O)SELECT    =    0 

IF(USED(Q).EQ.l)GOT045 

IF(BFSTSL.NE.0)G0T345 

BESTSL    =    Q 

conhnue 
if(select.eq.o)go  to  47 

0    =    SELECT 

IF(*FSTSL.NE.O)Q    =    BESTSL 

IF    HERE,     GATE    HAS    MO    ESSENTIAL     l'S       -       REMOVE    IT 

INCS^XlQtGC^I     =    0 

r  *  t  «■  i 

UPDATE    FSS1S 

Y  =    (0    -    1)*N2 
D"i    24    J=1,F$UB1 

V  =    F$l( J) 

IP(P$I  ltY+VI.NE.DGO    T0    24 

UPDATE    INPTCV    FOR    COMPONENT    V 

IN^TCViV)     =    INPTCV(V)    -    1 

IF<  INPTV(  V).GT.l  )G0    TO    24 

CASE    WHEN    NEW    ESSEN    1    CREATED 

DO    27    K    =    l,X 

W    =    T1PPED(K) 

IF( INC$MX(W,GCCI .EQ.OI    GO    TO    27 

Z    =    {  W    -    1  )    *    N2 

IF(ot( 1,Z+V).EQ.0IG0    to    27 

CSSIS(W)    =    ESSIS(W)     +    1 

IN    THIS    CASE,    NO    NEED    TO    UPDATE    INPTCV    FURTHER 

nSMALL(GCO,V)    =    -W 

GO    T0    24 

Continue 

CONTINUE 

GDT046 

DO     V9    I    =    1,NR 

IF( INC$MX( I,GCC) .EQ.0JG0TO49 

T2SU3    =   T2SU8    +    1 

T2PRED(T2SUB)     =    I 

CONTINUE 

NOW  ^L  CURRENT  INPUTS  HAVE  ESSENTIAL  l'S 

HPUTS  STILL  CONNECTED  TO  GCO  ARE  LISTED  IN  T2PRED  IN 

ORDER 


UPDATF    G(I)'S    OF    THOSE    GATES    STILL    CONNECTED    TO   GATE    GCO 

0")    29    II=1,F$UB1 

I    =    F$l(  II) 

CHOICE    =   -GSMALL(GCO,I) 

IF(CH0ICE.LT.100IG3    TO    61 

CHOICE    =    0 

00    30    JJJ*1,NR 

JJ    =    TORDEP(JJJ) 

IF(INC$MX( JJ,GCO).EO.O)GO    TO    30 

!F(P$(  1,  (JJ-1)*N2  +  I».NE.1)G0    TO    30 

IF( JJ .LE.NIGO    T0    29 

IF(rHrirE.EO.O)CH0ICE=JJ 

IFCGSMALLl  JJf II.GE.l JG0T029 

CONTINUF 

3SM^LL(CH0ICE,I)  =  1 

USED(CHriCE)     =    1 


PG1 

2920 

PG1 

2925 

PCI 

2930 

PGl 

2935 

PG1 

2940 

PGl 

2945 

PGl 

2950 

PGl 

2955 

PGl 

2  960 

PGl 

2965 

PGl 

2970 

PGl 

2975 

»G1 

2980 

PGl 

2985 

PGl 

2990 

PGl 

2995 

PGl 

3000 

PGl 

3005 

PGl 

3010 

PGl 

3015 

PGl 

3020 

PGl 

3025 

PGl 

3030 

PGl 

3035 

PGl 

3040 

PGl 

3045 

PGl 

3050 

PGl 

3055 

PGl 

3060 

PGl 

3065 

PGl 

3070 

PGl 

3075 

PGl 

3080 

PGl 

3085 

PGl 

3090 

PGl 

3095 

PGl 

3100 

PGl 

3105 

PGl 

3110 

PGl 

3115 

PGl 

3120 

REVERSE 

PGl 

3125 

PGl 

3130 

PGl 

3135 

CO 

PGl 

3140 

PGl 

3145 

PGl 

3150 

PGl 

3155 

PGl 

3160 

PGl 

3165 

PGl 

3170 

PGl 

3175 

PGl 

3180 

PGl 

3185 

PGl 

3190 

PGl 

3195 

PGl 

3200 

PGl 

3205 

PGl 

3210 

PGl 

3215 

PGl 

3220 

29 


33 
32 


CONTINUE 

DG    32    1*1, N2 

IFfiSMALUGCO,  II.LT.1IG0    TO    32 

DO     13    J»l,T2SUB 

IF(GSMALL(T2PPED( J)  ,1  )  .  EQ.O  J  GSMALU  T2PP  EQ<  J  )  ,  I  )  *-  100 

CONTINUE 

CONTINUE 

G3r05 

END 


PGl 
PG1 
PG1 
PGl 
PG1 
PG1 
PG1 
PGl 
PGl 


3225 
3230 
3235 
3240 
3245 
32  50 
3255 
3260 
3265 


SUBRD 
EOITI 

THIS 

GATE 
THIS 
ASSUM 
PEPMI 
ONE    G 

pr^gr 

THAT 
CML 
F 
F 
IMPLI 
VAPIA 
DEFIN 

I 
J 


SETOFJ  : 

>JECO: 

POINTO: 

FLAG: 

RNECl: 


POINTR: 
POINTJ 


UTINE  SURSTHFLAG) 

ON  AC  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PROCEDURE  TRIES  TO  DIRECTLY  SUBSTITUTE  THE  0 

WITH  THE  COMBINED  OUTPUTS  OF  OTHER  GATES  IN 

SUBROUTINE  IS  DESIGNED  TO  IMMEDIATELY  FOLLOrf 

E  THE  EXISTENCE  OF  AN  UPDATED  ARRAY  GSMALL  ( 

SSIBLE  FUNCTIONS).   AS  SOCN  AS  THIS  ROUTINE 

ATE,  IT  DOES  SO  AND  RETURNS  IMMEDIATELY  TO  T 

AM  WITHOUT  CHECKING  FURTHER.   IN  SUCH  A  CASE 

PRPCIP  WILL  AGAIN  BE  CALLED,  FOLLOWED  IMMEDI 

TO  THIS  POUTINE. 

LAG  IS  SET  TO  0  IF  THIS  ROUTINE  ELIMINATED  N 

LAG  IS  SET  TO  1  IF  SOME  GATE(S)  WAS  ELIMINAT 

CIT  INTEGER*4(A-T,V-Z,$> ,  PEAL(U) 

BLE  DEFINITIONS: 

ITIONS  OF  'COMMON'  VARIABLES  CAN  BE  FOUND  IH 


A  POTENTIAL  GATE  TO  BE  REPLACED 

A  CANDIDATE  TO  REPLACE  GATE  I  (MAYBE  IN  CO 

OTHER  GATES) 

A  SET  GF  FUNCTICNS  (GATES)  WHICH  MAY  REPLA 

CERTAIN  CONDITIONS  ARE  MET 

LIST  OF  NECESSARY  O'S  IN  THE  OUTPUT  OF  I 

POINTER  TO  LAST  ELEMENT  IN  NECO 

DEFINED  ABOVE 

INDICATES  1-COMPONENTS  OF  I  NOT  YET  CGVERE 

SETOFJ,  WHEN  THIS  ARRAY  BECOMES  EMPTY  GATE 

REPLACED 

POINTER   TO   LAST    ELEMENT    IN    RNECl 

POINTER  TO  LAST  ELEMENT  IN  SETOFJ 


AAAAAAAAAAAAAAA 
UTPUTS  OF  ONE 
THE  NETWORK. 

PROCIP,  SO  WE 
WHICH  REPRFSENTS 
CAN  ELIMINATE 
HE  CALLING 
,  IT  IS  EXPECTED 
ATELY  BY  ANOTHER 

0  GATES 
ED 


MAIN  PROGRAM. 

MBINATION  WITH 
CE  GATE  I  IF 


D  BY  GATES  IN 
I  CAN  BE 


HOW  TO  INCREASE  CAPACITY  OF  SUBROUTINE. 
DIMENSION:  SETOFJ(X)  -  X  EQUAL  TO  MAX  NUMBER  OF  G 
NECO(Y)  -  Y  EOUAL  TO  2**(MAX  ALLOWED 
RNECKZ)  -  Z  EQUAL  TO  Y*l 


ATES  PLUS  EX  VA 
NO.  OF  EX,  VAR 


COMMON  NEPMAX 


COMMON 
1 

2      , 
3 

COMMON 

1  , 

2  , 
COMMON 
COMMON 

1 
2 


N 

R 

NM 

LEVM 

ISUCC<40,40I 

INC$MX(40,40) 

GLEVEH40) 

T 

I  FLAG 
,F$UB1 
,LISTL(40) 
,PCINTR 


M 

N2 

KFLAG 

NRN2 

LISUCC(40) 

SUC$MX(40,40) 

LGLIST(40) 

RTCONN(IOO) 

,POINTA 

,INPTCV(32) 

,POINTL 

,VF$1(32) 


COMMON    PDTABt 200,42),PP0TAB(40) 


A 

Nl 

J  FLAG 

NM1 

IPRED(40,4 

P$(2,1280) 

HLIST(40,4 

S 
,ESS1S(40) 
,LISTC(40) 
,CRIGIN(40) 
,VF$UB1 
,LPCTAB(40) 


B 

NR 

COST 

NN2 
0)  ,  LIPRED140) 

,  UNAMEC40) 
0)  ,  TIME 

,    PSCONNdOO 

,F$1(32) 

,POINTC 

,IPATH(40) 

,GSMALL(40,3 

,NRPLC(2) 


PGl 

AAPG1 
PGl 
PGl 
PGl 

S  PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 

R  PGl 

•  )PG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 

)  PGl 
»Gl 
PGl 
PGl 

2)PG1 
PGl 


3270 
3275 
3280 
3285 
3290 
3295 
3300 
3305 
3310 
3315 
3320 
3325 
3330 
3335 
3340 
3345 
3350 
3355 
3360 
3365 
3370 
3375 
3380 
3385 
3390 
3395 
3400 
3405 
3410 
3415 
3420 
3425 
3430 
3435 
3440 
3445 
3450 
3455 
3460 
3465 
3470 
3475 
3480 
3485 
3490 
3495 
3500 
3505 
3510 
3515 


1  ,RPLr<2,40)        ,IDXO(32)        ,IDX0E<32)      »IDX1<32) 

2  ,I0X1E(32I        ,SUMP(32)        tSETTK32)      ,N0T1 

3  ,SETS1(40)         ,N0SI  ,SETS(40)        ,N0S 

4  ,STS  ,SUMS2(32)      »SETS2(200)     ,N0S2 

5  ,L!P  ,N00E  ,KEYA  ,KEYB 

6  »N00  ,N0l  iNOIE  ,$GT 

7  ,$LTH  ,$PW  ,$NOE  ,GI 
C3MM0N                 N3T1SV         ,NOSlSV         ,LMTS2 
DIMENSION  RNFCK33),          NECO < 32 ) , S ETQFJ < 40 ) 

FLAG  =  0 

03  I  I=NM1,NR 

IS    GATE    I     ISOLATEO? 

IF(LISUCC(I ). EG. 0)50    TO    1 

RFCORD    COORDINATES    OF    NECESSARY    l'S    AND    O'S    IN:    THE    OUTPUT    OF    I 

POINTO    =    0 

PDINTR    =    0 

00    3    K=1,N2 

IFCGS^ALLd  fKI  .EO.O    IGO    TO    3 
IP(GSMALL( ItKI .LT.OIGO    TO    4 
POINTP    =    POINTP    ♦    1 
R^ECH  P^INTR)=K 
G0TO3 
>    0OINTO    =    POTNTO    +    1 
NECO(POINTO)=K 

J    CONTINUE 
POINT.J    =    0 
d:    2    J    =    1,NR 
IF(J.LF.N)    GO    TO    11 

IS    J    A     SUCESSOP    HF     I? 

IF(Slir$MX(  I,  J)  ,GT.O)GO    TO    2 

ARE    I    AND    J    THE    SAME    GATE? 

IFCI.EO.JIGO    TO    2 

CPES    GATE    J    HAVE    THE    SAME    NECESSARY    0«S    AS    I? 
L    Y=N2MJ-1) 

DC;    5    K  =  1,PCINT0 

IF(P$(1,NEC0(K )+Y).NE.O)GO    TO    2 
)   C3NTINUF 

IS    GATE    J     ISOLATED    AND    A    NON-OUTPUT    GATE? 

IFCLISUCCC J).GT.0)G0T07 

IF(  J.GT.NM)G3    "r0    2 

GATE    J    MUST    HAVE    AT    LEAST    ONE    1    IN    COMMON    WITH    THE    PERMISSIBLE 
FN.     OF    I 
J  COUNT    =    0 

DO   6    L=1,P0INTR 

K    =    L-CCUNT 

IF(P$(  1,  RNEC1(K)«-Y)  .NE.DGO    TO    6 

COUNT    =    COUNT    ♦    1 

DO    8    KK=K,POINTP 

RNECKKK)    =    RNECUKK-HI 
i   CONTINUE 
i   C3NTINUF 

IF(COUNT.EO.O)GO    TO    2 

POINTJ    =    POINTJ    ♦    1 

SETOFJ{POINTJ)=J 

RQINTR    =    POINTR    -   COUNT 

IF(P0INTR.EQ.0)GO   TO    9 
I   CONTINUE 
I    CONTINUE 

RETURN 

CONNECT    GATES     IN    SETOFJ    TO    EACH    SUCCESSOR    OF    I 
J   FLAG    =    1 


PG1 

3520 

PGl 

3525 

PG1 

3530 

PGl 

3535 

PGl 

3543 

PGl 

3545 

PGl 

3553 

PGl 

3555 

PGl 

3560 

PGl 

3565 

P31 

3570 

PS1 

3575 

PGl 

3580 

PGl 

3585 

PGl 

3590 

PGl 

3595 

PGl 

3600 

PGl 

3605 

PGl 

3610 

PGl 

3615 

PGl 

3620 

PGl 

3625 

PGl 

3630 

PGl 

3635 

PGl 

3640 

PGl 

3645 

PGl 

3650 

PGl 

3655 

PGl 

3660 

PGl 

3665 

PGl 

3670 

PGl 

3675 

PGl 

3680 

PGl 

3685 

PGl 

3690 

PGl 

3695 

PGl 

3700 

PGl 

3705 

PGl 

3710 

PGl 

3715 

P31 

3720 

PGl 

3725 

PGl 

3730 

PGl 

3735 

PGl 

3740 

PGl 

3745 

PGl 

3750 

PGl 

3755 

PGl 

3760 

PGl 

3765 

PGl 

3770 

P31 

3775 

PGl 

3780 

PGl 

3785 

PGl 

3790 

PGl 

3795 

PGl 

3800 

PGl 

3805 

PGl 

3810 

PGl 

3815 

PGl 

3820 

10 


NUMSUC  =  LISUCC(  I) 

00  10  K=l,NU«SUC 

L  =  I SUCC<K,  II 

DISCONNECT  GATE  I  FROM  NETWORK 

INCSMX(I,L)  -  0 

DT     10    KK=1,31INTJ 

nrjMX(SETCFJ(KK),L  )    *    1 

CONTINUE 

END 


PGl 
*Gl 
PG1 
PGl 
P31 
PGl 
PG1 
PG1 
PG1 
PGl 


3825 
3830 
3835 

3840 
3845 
3850 
3855 
3860 
3865 
3870 


SUBROUTINE    PROCIP(SUB) 
wpq-DCI  P"    INDICATES     PROCEDURE 


I 


( p,«ppiMEH) 


THE  P4.R#METER  "SUB"  *  0  MEANS  PROCEDURE  SUBSTI  SHOULD  BE  SKIPPED 

=  I  MEANS  PROCEDURE  SJBSTI  SHOULD  BE  CALLED 
THIS  SUBR?UTINE  CALLS  MI  NI 2  REPEATEDLY  UNTIL  NO  IMPROVEMENT  IS 

OBTAINED 
THE  PARAMETER  "IMPROV"  IS  SET  TO  1  BY  MINI2  IF  ANY  IMPROVEMENT 

WAS  MADE,  SIMILARLY  FOR  THE  SAME  PARAMETER  IN  SUBSTI 

IMPLIC!T  INTEGER*4(A-T,V-Z),REAL(U) 

DEFINITIONS  OF  •COMMON'  VARIABLES  CAN  BE  FOUND  IS  MAIN  PROGRAM. 


COMMCN 
COMMCN 

1  i 

2  , 

3  , 
COMMCN 

1  t 

2  t 
COMMON 
COMMON 

1  tF 

2  ,L 

3  ,P 
COMMON 


,R 
,1 
,S 
♦  S 
tL 
»N 
,$ 
COMMON 


NEPMAX 

N 

R 

NM 

LEV* 

ISUCC(40,40) 

INC$MX(40,40) 

GLEVEL(40) 

T 

IFLAG 
$UB1 

ISTL(40) 
OINTR 

P0TA8(200,42) 
PLC (2, 40) 
DXIE(32 ) 
ETSK40) 
TS 
IP 
00 
LTH 


M 

N2 

KFLAG 

NPN2 

LISUCC(40) 

SUC$MX(40,40) 

LGLISTI40) 

RTCONN(IOO) 

♦POINTA 

,INPTCV(32) 

,POINTL 

,VF$1(32) 

,PPCTAB(40) 

, 10X0(32) 

,SUMP(32) 

,N0S1 

,SUMS2(32) 

,NOOE 

,N01 

,$PW 

N0T1SV 


A 

Nl 

JFLAG 
NM1  . 

IPRED(40,40) 

P$(2,1280) 

HLIST(40,40) 

t  S 

, ESS  IS (40) 

,LISTC(40) 

,0RIGIN(40) 

,VF$UB1 

,LP0TAB(40) 

,IDX0E(32) 

,SETT1(32) 

,SETS(40) 

,SETS2(200) 

,KEYA 

,N01E 

,$NOE 

NOSISV 


t  B 
,  NR 
t  COST 

*  NN2 

,  LIPRED(40) 

,  UNAME(40) 

t  TIME 

,  RSCCNN(IOO) 

,F$1(32) 

,POINTC 

,IPATH(40) 

,GSMALL(40,32 

,NRPLC(2) 

,10X1(32) 

rNOTl 

,NOS 

,KCS2 

♦  KEYB 
,$GT 
,GI 

,LMTS2 


REPEAT  =  0 

IHPR3V  =  0 

CALL  MINI2C IMPROV) 

IF(  IMPROV. EQ.1)REPEAT=1 

IF(SUB.E0.0)G0T02 

CALL    SUBSTKIMPROV) 

IF(IMPPOV.EQ.O)GO    TO    2 

REPEAT    =    1 

CALL    SUBNET 

CALL    RVALUE 

IFtREPEAT.EO.l IGO    TO    1 

RETURN 


PGl 
»Gl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
°G1 
»G1 
PGl 
3Gl 
PGl 
PGl 
PS1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
»G1 
)PG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
»G1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
>G1 
PGl 
PGl 
PGl 


3875 
3880 
3885 
3890 
3895 
3900 
3905 
3910 
3915 
3920 
3925 
3930 
3935 
3940 
3945 
3950 
3955 
3960 
3965 
3970 
39  75 
3980 
3985 
3990 
3995 
4000 
4005 
4010 
4015 
4020 
4025 
4030 
4035 
4040 
4045 
4050 
4055 
4060 
4065 
4070 
4075 
4080 
4085 
4090 
4095 
4100 
4105 
4U0 
4115 


END 


PGl    4120 


SUBROUTINE    OUTPUTJMATRIX, ARRAY) 
IMPLICIT     INTEGER+4(A-T,V-Z, %) »    REAL(U) 

DEFINITIONS    OF     •COMMON1    VARIABLES    CAN    BE    FCUNO    IN    MAIN    PROGRAM. 


COMMON 

common 


CO«MCN 


COMMCN 
COMMON 


COMMCN 


COMMON 
DI*ENS 
OIMENS 
DATA  U 
04TA  U 
DftT4    u 


NEPMAX 
N 
R 

NM 

LEVM 
ISUCC( 
INC$MX 
GLEVEL 

T 

IFLAG 
F$UB1 
LISTL(40) 
POINTR 

POTA<M 
RPLC(2,40 
I0X1EC32I 
SETSK40) 

STS 
LIP 

NOO 
$LTH 

ION  UX(5) 
ION  M4TRI 
X  /'  Xl«  , 
Y/«  Yl»  ,• 
F    /• 


40,^0) 
(40,  40 
(40) 


2  00,42 
) 


,  UY(5 
X(40,4 
•     X2'. 


M 

N2 

KFLAG 

NRN2 

LISUCCC40) 
),     SUC$MX(40, 

LGLISTC40) 
,    RTCONNdOO 
,POINTA 
,INPTCV(32) 
,POINTL 
,VF$l( 32) 
),PP0TAB(40) 
,IDX0(32) 
,SUMP(32) 
,N0S1 

,SUMS2(32) 
,NOOE 
,N01 
,$PW 
N0T1SV 
)t    UG(40),    UF 

0) 

t 


40) 


A 

Nl 

JFLA 

NM1 
IPRE 
PJ(2 
HLIS 
)        t    S 

,ESS1S 
,LISTC 
,ORIGI 
,VF$UB 
♦LPOTA 
t  IDXOF 
, SETT1 
,SETS( 
,SETS2 
,KEYA 
tNOlE 
,  4N0E 
,N0S1SV 
(40),    ARR 


0(40,40) 

,1280) 

T(40,40) 

(40) 

(40) 

N(40) 

1 

B(40) 

(32) 

(32) 

40) 

(200) 


AY(40) , 


t    B 

,    NR 

,    COST 

,    NN2 

,    LIPREDC40) 

,    UNAME(40) 

,    TIME 

,    RSCCNN(IOO) 

,F$l(32) 

,POINTC 

,IPATH(40) 

,GSMALL(40,32 

,NRPLC(2) 

♦10X1(32)        - 

,N0T1 

,NOS 

,N0S2 

,KEYB 

,$GT 

tGI 
,LMTS2 
APRAY2(2,1280) 


9«, 
17»  , 
25«, 
33', 


10' 
18« 

26* 
34  • 


X3« 

Y3', 

3« 

11« 

19' 
27» 
35* 


X4« 
Y4«, 
4« 
12' 
20« 
28' 
36f 


X5'/ 
Y5V 

13',  • 


6«  , 
14*  , 
22«  , 

30«  , 
J8«  , 


•       7»,« 

8« 

•     15', ' 

16« 

•    23',  • 

24« 

•    31  ■  ,' 

32« 

•     39  %• 

40'/ 

DATA    GMAX/40/ 


KEYXC=ARRAY(1  > 
!F(KEYXC.NE.O)    GO    TO    50 
DO    1    GI=1,N 
UN4ME{GI)=UX(GI) 

1  CONTINUE 
GO    TO    100 

0  CONTINUE 
L  =  N/2 
DO    4    GI  =  1,L 

UN*ME(GI)=UX(GI ) 
UNAME(OH-L)=UY(GI) 
<»  CONTINUE 
0   CONTINUE 

DO    2    GI=N1,GMAX 
JNAME(GI)=UF(GI-N) 

2  CONTINUE 
RETURN 

ENTRY  LINE(L) 
D^  6  LL=i,L 


PG1 
PGl 
PG1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 

?r,i 

PGl 

PGl 

PGl 

)PG1 

PGl 
PGl 
PGl 
PGl 
PGl 
PHI 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
»G1 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 
PGl 


4125 
4130 
4135 
4140 
4145 
4150 
4155 
4160 
4165 
4170 
4175 
4180 
4185 
4190 
4195 
4200 
4205 
4210 
4215 
4220 
4225 
42  30 
4235 
42  40 
4245 
42  50 
4255 
42  60 

42  65 
4270 
4275 
4280 
4285 
4290 
4295 
4300 
4305 
4310 
4315 
4320 
4325 

43  30 
4335 
4340 
4345 
4350 
4355 
4360 
4365 
43  70 
4375 
43  80 
4385 
4390 
4395 
4400 
4405 
4410 


10 


15 


17 

18 
19 

20 


35 

36 
37 

38 


40 
41 


,8X,«GATE  ..  LEVEL',6X,  'FED  BY'/) 
LtNR 


PPINT  5 
F0DMAT(1H  ) 
CONTINUE 

5ETURN 

ENT*Y  °AGE 
°RINT  7 
C0PMAT(1HI ) 
3 E TURN 

ENTRY  C*T(MATRIX, ARRAY) 
PRINT  io 
FTR>UT(  1H 
01  20  GJ=N 

0  =  0 

00  15  GI  =  1,\I» 
TF(M4TPIX(GI,0J).E0.0)  GO  TO  15 

0  =  G*1 

IJG(n)=UNAME(r,l  ) 

CONTINUE 

IF(G.E0.0 

PRINT  17, 

FTRMATJ  1H 

GO  TO  20 

PRINT  19, 

cORMAT< IH 
CONTINUE 
PETURN 


)  GO  T0  18 

JNAMECGJ >,ARRAY(GJ), ( UG( GG ) , GG= I , G) 
0,  9X,A3,5X, •/■ ,I2,«/« ,5X,35<    A3)) 

UNAME(GJ),ARRAY(GJ) 
0,  9X,A3,5X,'/'  ,I2,V  ) 


H(ARPAY2, J) 

GH  TO  36 


•TRUTH  TABLE'/  ) 


REQUIREMENT  TABLE* ). 


ENTRY  TPUT 
IP( J.F0.2) 
PRINT  35 
FHPMAT( 11X 
GO  TO  38 
PRINT  37 
F3PMATU1X 
CONTINUE 
DO  40  GI=1 

IL0=(GI-1 

IHI=ILO+N 

*RIMT  41, 
CONTINUE 

F0PM*T(1H0,  9X,A3,»  =  ',  32(11, IX)) 
RETURN 
END 


,NR 

)*N2*1 
2-1 
JNAME(GI),  (ARRAY2( J, I ) , 1= ILO, IHI  ) 


pg: 

PG! 
PGI 
PG] 

PG1 
PG 

pg: 

PGI 

PI 

pg: 

PG' 

P! 

PG! 

PG 

PG] 

PG] 

PI 

pg: 

PG 
PG 
PG 

pg: 
pg: 

PG! 
PG1 

pg: 
pg: 

*G 

pg: 
pg: 

PG 

pg: 
pg: 
pg: 
pg: 
pg: 

PG] 

pg: 

PG] 
PG] 

PGI 
PG' 
PG! 

pg: 

pg: 


SUBROUTINE  SUBNET 

IMPLICIT  INTEGFR*4(A-TtV-Z,$)  ,  REAL(U) 

DEFINITIONS    OF     'COMMON'    VARIABLES    CAN    BE    FOUND    IN    MAIN    PROGRAM. 


COMMON    NEPMAX 


COMMON 

1  , 

2  , 

3  , 

COMMON 

1  , 

2  , 

COMMON 


N 
p 

NM 
LEVM 


ISUCC(40,40)     ,     LISUCC(40)  , 

INC$MX(40,40)  ,    SUC$MX{40,40), 
r.i  cuci  r^ni  in  ict/aai 


M 

N2 

KFLAG 

NRN2 

LISUCC(40) 


GLEVEL(40) 


LGLI ST<40) 

RTfONNt 100) 


A  , 

Nl  , 

JFLAG  , 

NM1  , 

IPRED(40,40)  , 

P$(2,1280)  , 


B 

NR 

COST 

NN2 

LIPPED(40) 

UNAME(40) 


HLIST(40,40)     ,    TIME 


RSCCNNJ 100) 


pg: 
pg: 

PG! 

pg: 

PGI 

pg: 

pg: 

PG] 

pg: 

PG] 

pc-: 
pg: 

pg: 

p: 


10 


21 


22 


23 


COMMON    IFLAG         ,POINTA 

,ESS1S<*0> 

tF$l(32) 

PGl 

I      ,F$UB1            ,INPTCV<32» 

tLISTC(^O) 

,*>OINTC 

PGl 

2      ,LISTIC*0)        ,POINTl 

,0RISIN(*0) 

,IPATHI40I 

PGl 

3      ,PO!NTR           ♦VF$1(32» 

fVFIJBl 

tGSMALH^O, 

32JPG1 

C3MM3M    P3TAB(200,*2)  tPPOTABUO) 

♦  LPOTABUO) 

,NRPLC(2» 

PGl 

1      ,RPLC(2,40)       tI0X0(32) 

tIDX0E(32» 

tIDXi(32) 

PGl 

2      ,IDXIE(32»        ,SUMP!32> 

tSETTl(32l 

.N0T1 

PGl 

3      ,SE7Sl(*0)        ,N0S1 

,$ETS(*0) 

fNOS 

PGl 

*      tSTS              ,SUMS2(32) 

,SETS2I200I 

♦  N0S2 

PGl 

5      tL!P              ,NOOE 

,KEYA 

,KEYB 

PGl 

6      ,N00              tNOl 

,N01E 

♦  *GT 

°Gi 

7      ♦$LH              »$PW 

,$NOE 

,G$$$$$ 

»G1 

COMMON                 N0T1SV 

,N0S1SV 

,LMTS2 

PGl 

DIMENSION  X(*0),LX(*0,2)tOUTO<*0) 

PGl 

ENTRY  PRESUC 

PGl 

CONTINUE 

PGl 

00  10  GI=1»NR 

PGl 

LS  =  0 

PGl 

LP=0 

PGl 

0«?  5  GJ=lfNR 

PGl 

IF(INC$MX«GItGJ).EO.O»  GO  TO  3 

"»G1 

LS=LS+1 

»G1 

TSUCCILS,GII*GJ 

PGl 

GO  TO  5 

PGl 

IF( INC$MX(GJ,GI).EQ.O)  GO  TO  5 

PGl 

LP*LP*l 

PGl 

IPRED(LP,GI)«GJ 

PGl 

CONTINUE 

PGl 

LISUCC(GI)»LS 

PGl 

LtPREDIGII'lP 

P31 

CONTINUE 

»Gl 

PGl 

ENTRY  SUCCES 

-7  A 

PGl 

DO  21  GI=l,NR 

PGl 

03  21  GJ-l.NR 

»G1 

SUC*MX(GItGJ 1=0 

P51 

CONTINUE 

PGl 

00  30  GJ»N1,NR 

PGl 

DO  22  GS=1,NR 

PGl 

X(GS)«0 

PGl 

CONTINUE 

PGl 

X(GJ)»l 

PGl 

L0=1 

PS1 

LX(1,1)*GJ 

PGl 

V=l 

P31 

CONTINUE 

PGl 

V  =  l-V 

PGl 

SWO=l*V 

PGl 

SW1»2-V 

PGl 

L1»0 

PGl 

00  28  LL=ltLO 

PGl 

GM=LX(LL,SWO) 

PGl 

LIP»LIPRED<GM| 

P31 

IF(LIP.EQ.O)  GO  TO  28 

PGl 

00  26  LP«1,LIP 

PGl 

GP«IPREO(LP,GN) 

PGl 

IFIXIGOI.GT.OI  GO  TO  26 

PGl 

SJC$MXIGP,GJ)*1 

PGl 

U  =  ll*l 

PGl 

LX(L1»SW1I*GP 

PGl 

X<GP)*l 

PGl 

26         CONTINUE 

28      :ONfINUE  p3l    501! 

IFCLl.EQ.OI    GO   TO    JO  PGl    502. 

LO-Ll  pGl    50r 

GO    TO    23  PGl    503; 

30    CONTINUE  PGl    503' 

C  p3l    50*:| 

C              ENTRY    LEVEL  °Gl    50Vi 

33    *0    GJ»1,NR  pGl    50J|, 

3UTO(Gj|«LISUCC(GJ)  pSl    505' 

GLEVEL(GJ1«-1  pSl    506' 

*0      CONTINUE  pGl    506! 

LEV»0  PSl    507! 

*5    LEV-LEV+1  PGl    507! 

3»0  PGl    508! 

03    50    GJ»l,NR  P31    508! 

IH0UTOIGJI.8T.0    OR.    SLEVELI6JI.GT.0I    GO    TO    50  p?J    *£ 

HLIST(G,LEV)«GJ  PG1    510C 
GLEVEL(GJ)»LEV  p31    5135 
50    C3NTINUE  PSl    511. 
IF(G.EQ.O)    RETURN  PG1    5115 
LGI.IST(LEV)«G  P31    SH- 
OO   60    GG»1,3  PGl    5125 
3J«*LISTtGG,LEV)  pGl    5130 
LIP-LIPREOCGJI  PGl    5135 
IF(LIP.EQ.O|    GO    T3    60  B31    5H3 
00    55    LP»1,LIP  PCI    5H5 
GP»IPREO(LP,GJ)  PS1    5150 
0UT0(GP)»3UT0(GP)-1  pGl    5155 
55      CONTINUE  p3l    5163 
60   CONTINUE  PGl    5165 
LEVN»LEV  PGl    5170 
GO    TQ    45  *Gl    5175 
C  »G1    5183 
r-  PSi    5185 
C  PGl    5193 
ENTRY    RVALUE  P31    5195 
03    100    L»NN2,NRN2  °sl    5233 
P*CltU«I  PSI    5205 
100    CONTINUE  PGl    5210 
C  PGl    5215 
LEV»LEVM  pSl    5220 
110    CONTINUE  PGl    5225 
L0«L3LIST(LEV>  pSl    5233 
03    130    L=1,L0  PSI    5235 
GI»HLIST(L,LEV»  PGl    52*0 
LIS-LISUCCIGI)  pSl    52« 
9SGI»(GI-1)«N2  PSl    5250 
LJTH»0  PSl    5255 
00    115    JTH«1,N2  PGl    5260 

IECP$(l,BSGI*JTH|.EQ.O)    GO    TO    115  P61    5265 

LJTH«LJTH*l  pGl    5270 

X(LJTH)«JTH  PSl    5275 

115      C3NTINUE  PSl    5280 

IF<LJTH.EQ.O»    GO    T3    130  PSl    5285 

00    125   LS-1,LIS  PSl    5290 

GS«I$UCCfLS,GI|  pSl    5295 

*SGS«(GS-1)*N2  PSl    5300 

DO    120    LJ-ltLJTH  pSl    5305 

P*<1,X(LJI*9SGSI«0  PSl    53l° 

PSl    5315 


120         CHMTINUE 
125      CONTINUE 
130    CONTINUE 
LEV=LEV-1 
IF(LEV.GE.2» 
RETURN 


GO    TO    110 


150 


160 


***** 


235 

***** 

207 


203 
206 


204 
209 


ENTRY    RSTRCHKEYRST) 
KEYRST=0 
TFCLEV*.GT.LMAX)GO    TO    160 

00  150    GI»Nl,NP 
IF<LIPRED(GII.GT.FANIN)GO    TD    160 
IF(LISUCC(GI).GT.FIVN0UTIG0    TO    160 

CONTINUE 
RETURV 
<EYRST=1 
RETURN 
ENTRf  UNNECE 

THIS  ENTRY  DISCONNECT  ALL  GATES  FROM 

T3  3JTPUT  G«TES  ***** 
TS  =  T 

01  209  GI»NMl,NR 
IF(GLEVEL(Gl».EQ.l)  GO  TO  207 
0^  205  GJ=N1,NM 

IF(SUC$f*X(GI,GJ).GT.O»  GO  TO  209 
CTNMNUE 

51  IS  REOUNOANT  ***** 
CONTINUE 
LIP»LIPREO(GI! 
IFCLIP.EQ.OI  GO  TO  206 
DT  203  LI«1,LIP 

gk=ipred(li,gi) 
if(im:$mx(gk,gii.le.o>  go  to  203 

T»T*i 

PTCrNN(T|  =  lOO*G<<-GI 

INC$MX(GK,GI)=0 

COMTINUE 
LIS=LTSUCC(GI1 
IFILIS.EQ.O)  GO  TO  209 
DO  204  LI-1,LIS 
GK=ISUCC(LltGI) 
IF(INC**XtGI,GKl.LE.OI  GO  TO  204 
t  =  T*1 

RTC0NN(T!*100*GI«-GK 
INC$MXCG1,GK)=0 
CONTINUE 
CONTINUE 

IF(T.GT.TS)  GO  TO  1 
RETURN 
END 


WHICH  THERE  IS  NO  PATH 


PG1 

5320 

P31 

5325 

RG1 

5330 

PGl 

5335 

PGl 

53*0 

!>G1 

53*5 

PG1 

5350 

PGl 

5355 

PG1 

5360 

PGl 

5365 

PGl 

5370 

°G1 

5375 

PGl 

53  9  3 

PGl 

5385 

PGl 

5390 

PGl 

5395 

»G1 

5430 

PGl 

5435 

PGl 

5410 

t>Gl 

5415 

PGl 

5420 

PGl 

542  5 

PGl 

5430 

PGl 

5435 

PGl 

5443 

P31 

54*5 

PGl 

5453 

PGl 

5455 

PGl 

5460 

PGl 

5465 

PGl 

5470 

»G1 

5475 

PGl 

5480 

PGl 

5485 

PGl 

5490 

PGl 

5495 

PGl 

5530 

PGl 

5505 

PGl 

5510 

PGl 

5515 

PGl 

5520 

PGl 

5525 

PGl 

5530 

PGl 

5535 

PGl 

5540 

PGl 

5545 

PGl 

5553 

PGl 

5555 

>G1 

5563 

PGl 

5565 

PGl 

5570 

»G1 

5575 

r 

r 

c 

r 

r 
C 
r 

C 

C 

r 

C 
C 

c 

C  N 

C  NN 


.a*-**********************************************************************, 


p 

C 

c 

c 
c 

r 

£***** 

c 

c 


pp 

p 

p 

pp 

p 

p 


EE 

E 

E 

EE 

E 

EF 


PP 


PP 


EFE 

E 
FEE 


RRRR 
q    3 

R    P 

RRRR 
B   R 

R     R 


TTTTT 


000 
0    0 
0    0 
0    0 
0    0 

000 


TTTTT 

T 

T 
T 
T 
T 


GGG 
G    G 
G 

G   GG 
G    G 

GGG 


RRRR 
R    P 
R    R 
RRRR 
R   R 
R    P 


RRRR 
R    R 
R    R 
RRRR 
P   R 
P    R 


A 
A  A 
A    A 
AAAAA 
A    A 
A    A 


A 
A  A 
A    A 
AAAAA 
A    A 
A    A 


XXXXX 


M  M 
MM  MM 
h  M  n  M 
M  M  M 
M  M 
M      M 


PPPP 

P    P 
P    P 
PPPP 
P 
P 


1 

11 

1 

i 

1 
111 


*********************************** ******** *********** ******************** 


IMPLICIT  INTEGEP*4( A-T,V-Z,$),  REAL 
EDITION  BBBBBBBB3B3BSBBB8BBBBB8BBBB 

NOTE:  ALL  COMMON  VARIBLES  MIGHT  NOT 


r 
c 
c 
c 
c 

p 

r 
? 

r 

C 
C 

c 
c 
c 

c 
c 
c 
c 
r. 

c 
c 

c 
c 

c 
c 

c 

c 
c 
c 
c 
c 
c 


rnMMTN 
S3T 

$LTH 

tMOE 


$PW 

6 

B 

COST 

ESS1S 


FS'JBl 
F$l 

GI 

GLEVEL 

GSMALL 

HLIST 

IDXO 
IDXOE 

IDXl 
inxiE: 


VARIABLES: 
:  POINTS  TO  A 

IN  THIS  COL. 

POINTS  TO  A 

IN  THIS  COL. 

POINTS  TO  A 

IN!  THIS  COL. 

ROW  IS  USEO. 

03INTS  TO  A 

IN  THIS  COLUMN 

WEIGHT  FOR  NO.  OF 

WEIGHT  FOR  NO.  CF 
:  COST  OF  NETWORK  - 


•COLUMN*  OF  POT 
TELLS  GATE  WHE 

•COLUMN*  OF  PHT 
TELLS  HOW  MANY 

•COLUMN'  OF  POT 
TELLS  THE  NUMB 


•COLUMN' 
TELLS 


OF  PCT 
THE  PR 
GATES  IN 
CONNECTIO 
A  MEASURE 


(U)  PI 

BBBBBBBPBBBBBBBBPBBBBB8BBBBBBB8P1 

PI 
BE  USED  IN  THIS  PROGRAM.       "1 

PI 
PI 
PI 
PI 
PI 
PI 
PI 
»1 
PI 
PI 
PI 
PI 
PI 
PI 


A8.  FOR  EACH  »RDW«  THE  ENTRY 

RE  FN.  IS  REALIZED. 

AB.   FOP  EACH  »ROW»  THE  ENTRY 

CONNECTIONS  MUST  BE  ADDED. 
AB.   FOR  EACH  'ROW'  THE  ENTRY 
ER  OF  1-ERRPRS  CPEATED  IF  THIS 


THE  ENTRY 


RECORDS  NO.  OF  ESSENTIAL  1» 

(POSITIONS  IN  ESS1S  CORRES. 

IGNORED). 

POINTS  TO  LAST  ELEMENT  IN  F 

LISTS  (CONSECUTIVELY)  POSIT 

COVERING)  IN  A  CONNECTIBLE 

LABEL  OF  A  PARTICULAR  GATE. 

GLEVEL(GI)  TELLS  WHICH  LEVE 

STORES  INTERMEDIATE  AND  FIN 

HLIST (I, J)  GIVES  NAME  OF  I- 

WOPK  LEVEL  J. 

LIST  OF  0-C03RDINATES  IN  CS 

CONSIDERATION. 

LIST    OF    0-ERROR-COORDI NATES 

CONSIDERATION. 

LIST  OF  I-COORDINATES  IN  CS 

CONSIDERATION. 

LIST  OF  1-ERROR-COORDINATES 


$1. 

IONS  OF  DESIRABLE 
FUNCTION. 


AB.   FOR  EACH  'ROW1 

EFERENCE  WEIGHT. 

COMPUTING  COST  FUNCTION. 

NS  IN  COMPUTING  COST  FUNCTION. 

OF  NETWORK  SIZE. 

S  IN  EVERY  INPUT  TO  CURRENT  GC0P1 

TO  GATES  N0T  FEEDING  GCO  ARE   PI 

PI 
PI 

»1 
PI 

»1 

PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 


1»S  (FOR 


IN. 


L  OF  THE  NETW3RK  GI  IS 

AL  CALCULATED  CSPF'S. 

TH  GATE  (OR  EX.  VAP . )  IN  NET- 

PFE  OF  THE  GATE  UNDER 
IN  CSPFE  CF  THE  GATE  UNDER 

PFE  OF  THF  GATE  UNDER 
IN  CSPFE  OF  THE  GATE  UNDER 


00100 
00200 
00300 
00400 
0050D 
00600 
00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 
01500 
01600 
01700 
01800 
01900 
02000 
02100 
02200 
02300 
02400 
02500 
02600 
02700 
02800 
02900 
0300D 
03100 
03200 
03300 
03400 
03500 
03600 


IFLAG: 
INCSMX: 

TNPTCV: 

IPATH: 

IPRE3: 

isuc:: 

JFLA3: 
KEfA: 

XEV*: 

KFLA5: 
LEV*: 

LGLIST: 

LIP: 

LIPRE3: 
LISTC: 

LISTL: 

LISUCC: 

LMTS2: 
Lott»b: 

M: 

N: 

NEPMAX: 


NMl 

N1U 

NN?! 

NOS! 

NOSl! 

NOS1SV: 

NOS2! 

NOT1  : 

NOnsv! 

NOO! 

NOOEJ 

NOl: 

NOIE: 

NR: 

NRN2: 

NRPLCi 

Nl! 

N2; 


CONSIDERATION.  PI 

SAME  AS  EYEFL5  IN  SUBROUTINE  PROCII.  PI 

INC$MX(GI,GJ)>0  MEANS  THERE  EXISTS  A  CONNECTION  FROM  GATE  PI 
(OR  EX.  VAR.)  GI  TO  GATE  GJ.  INC$MX( GI t 5 J »=0  IF  NOT.  »1 
LISTS  FOR  EACH  CORRESPONDING  ENTRY  OF  F$l,  HOW  MANY  INPUTSP1 
HAVE  A  «1»  IN  THE  POSITION  INDICATED  BY  F$l.  »1 

IPATH(GI)»1  MEANS  GATE  GI  IS  ON  A  PATH  FROM  A  CERTAIN  GATEP1 
TO  AN  OUTPJT  GATE.   OTHERWISE  IPATHfGIl  »  0.  PI 

IPRED(I,GJ>  GIVES  THE  NAME  OF  THE  I-TH  GATF  OP  EX.  VAR.  IN01 


FED  BY  GJ 


IF  ANY  PRIMARY  0-ERROR-COORDINATES  HAS 


EX.  VAR.  ARE  ALSO 


IN  LEVEL  J  OF 


CONSIDERATION. 


A  LIST  OF  SATES  AND  EX.  VAR.  FEEDING  GJ. 

ISUCC(I,GJ)  GIVES  THE  NAME  OF  THE  I-TH  GATE 

SAME  AS  JJrFLG  IN  SUBROUTINE  PROCII. 

A  FLAG  INDICATING  IF  ANY  ERROR  COMPENSATION  HAS  BEEN 

PERFORMED. 

A  FLAG  INDICATING 

BEEN  COMPENSATED. 

SAME  AS  KEIFLG  IN  PROCII. 

NUMBER  OF  LEVELS  IN  THE  NETWORK  (NOTE 

ASSIGNED  LEVELS  JUST  LIKE  GATES!. 

LGLIST(J)  TELLS  NO.  OF  GATES  AND  EX.  VAR. 

NETWORK. 

NUMBER  OF  PREDECESSORS  FOR  THE  GATE  UNDER 

LIPRED(GI)  TELLS  NO.  OF  IMMEDIATE  PREDECESSORS  OF  GA^E 

ORDERED  LIST  OF  CONNECTIBLE  INPUTS  TO  GCO.   ORDERED  BY 

DECREASING  NO.  OF  O'S  IN  GCO  COVERED. 

ORDERED  LIST  OF  GATES  AND  EX.  VAR.  WHICH  ORIGINALLY  FED 

GCO  AND  WHICH  HAVE  NOT  YET  BEEN  DISCONNECTED.   ORDERED  BY 

DECREASING  NO.  OF  ESSENTIAL  l'S. 

LISUCC(GI)  TELLS  NO.  OF  IMMEDIATE  SUCCESSORS  OF  GATE  (OR 

EX.  VAR. I  SI. 

UPPER  LIMIT  OF  THE  NUMBER  OF  ELEMENTS  IN  SET  S2. 

FOR  GATE  GI,  LPOTAB(GI)  POINTS  TO  LAST  ROW  OF  POTAB 

CONCERNING  GI. 

NJMBER  OF  NETWORK  OUTPUT  GATES. 

NJMBER  OF  EXTERNAL  VARIABLES  (OR  INPUT  FNC.I  AVAILABLE. 

FOP  ERROR  COMPENSATION  PROGRAMS.   IF  MORE  THAN  NEPMAX 

ERROR  POSITIONS  OCCUR  WHEN  A  PARTICULAR  GATE  IS  REMOVED, 

PROGRAM  SKI'S  ATTEMPT  TO  COMPENSATE  FOR  THAT  GATE'S 

REMOVAL.   VALUE  CAN  BE  SPECIFIED  BY  USER,  OTHERWISE  EQUAL 

TO  ONE  HAL?  OF  N2  BY  DEFAULT. 

SUM  OF  N  PLJS  M 

SUM  OF  NM  PLUS  1. 

PRODUCT  OF  N  AND  N2. 

NUMBER  OF  ELEMENTS  IN 

ELEMENTS 

ELEMENTS 


PI 
PI 
»1 
PI 
01 
PI 
PI 
l>l 
PI 
PI 
PI 
PI 
PI 


OF 
OF 


IN 

IN 


SET 
SET 
SET 


NUMBER 

NJMBER 

RPLCF. 

NUMBER  OF  ELEMENTS  IN  SET 

NJMBER  OF  ELEMENTS  IN  SET 

NUMBER  OF  ELEMENTS  IN  SET 

RPLCF. 

NUMBER  OF  ACTIVE  ELEMENTS 

NUMBER  OF  ACTIVE  ELEMENTS 

NJMBER  OF  ACTIVE  ELEMENTS 

NUMBER  OF  ACTIVE  ELEMENTS 

SUM  OF  N  PLJS  R. 

PRODUCT  OF  NR  AND  N2 . 

NRPLC(I)  STORES  THE  NUMBER 


S. 

SI. 

SI  BEFORE 

S2. 

Tl. 

Tl  BEFORE 


ENTERING  SUBROUTINE 


ENTERING  SUBROUTINE 


IN 
IN 
IN 
IN 


ARRAY 
ARRAT 
ARRAY 
ARRAY 


IDXO. 
IDXOE. 
IDXl. 
IDX1E. 


OF  ELEMENTS  IN 


RPLC(I,*) 
FOR  I»l,2. 


SUM  OF  N  PLUS  I. 
NJMBER  OF  DIFFERENT 


INPUT  COMBINATIONS  TO  BE  CONSIDERED 


GI-P1 
PI 
»1 

PI 

»i 

»1 

pi 
pi 
pi 
pi 

01 

PI 
PI 

PI 

01 

PI 

PI 

PI 

01 
01 

PI 
>1 

°1 

PI 
PI 
PI 
»1 
PI 

01 
01 

PI 

01 

PI 
PI 
PI 
PI 
PI 
PI 
PI 


03700 
03830 
03900 
04000 
04130 
04200 
04*33 
04400 
04500 
04600 
04700 
04830 
04930 
05000 
05100 
05230 
05300 
05433 
05533 
05630 
05730 
05800 
05930 
06000 
06100 
06200 
06300 
06400 
06533 
06600 
06700 
06800 
06900 
07000 
07100 
07200 
07333 
07433 
07530 
07633 
07700 
07830 
07930 
08030 
08133 
08230 
08333 
08430 
08500 
08600 
08700 
08830 
08933 
09033 
09100 
09230 
09300 
09433 
09500 
09600 
09700 


(USUALLY  2    Jl    THE  POWER  Nl 


p$ 


pr;n 


POINTA 

POINTC 
POINTL 
POINTR 

P  0T  A  B  : 


PPOT48 

P 

PPLC 


srrnNfg 
S: 

SETS: 
SETS1 

SETS2: 

SETTH 

STS: 
SUC$MX: 

sump; 

SUMS2". 
T: 

TIME) 

UN* ME: 

VF$U^ll 

VF$l: 


co**m:)n 

C3MM1N 

1  t 

2  , 

3  t 

COMMON 


ORIGINALLY  CONNECTED  TO  GCO . 

DID  NOT  FEED  GCO  ORIGINALLY. 

LISTS  OUTPUTS  OF  EVERY  EX.  VAR.  AND 

INPUT  COMBINATION!:  PSdtl),..., 

FOP 
FO» 


P«IGIN(GI)=1    MEANS    GI 

nRIGIN(GI )  =  0    MEANS    GI 

PS ( 1 » - >  CONSECUTIVELY 

EVERY  GATE  (FOR  EVERY 

P$(l,f2)  FIR  FIRST  EX  VAR;  PK  I , N2*  1 ),...  ,P$t  1 , 2*N2  ) 

SECOND  EX  VAP;  ...  ;  P$ ( 1 ,N*N2*1 ) , . . .,  P S( I , N*N2+N2 ) 

FIRST  GATE;  ETC.   P$(2,-)  IS  USED  AS  WORK  SPACE  FOR 

CALCULATIONS  ASSOCIATED  WITH  P$(l,-). 

FOR  ERRO">  COMPENSATION  PROCEDURES.   PCC  IS  THE  GATE 

REMOVED  FRQM  ORIGINAL  NETW2RK  TO  OBTAIN  CURRENT  ALTERED 

NETWORK. 

N3T  USED. 

POINTS  to 

POINTS  TH 

P3INTS  TO 

POSSIBLE 


LAST  ELEMENT 

LAST    ELEMENT 

LAST  ELEMENT 

OJT°UT  TABLE. 


IN  LISTC. 
IN  LISTL. 

IN  RNECi  (IN  SUBROUTINE  SUBSTI) 
HOLDS  INFORMATION  ABOUT  ALL 


COMBINATIONS  OF  CONNECTIONS  TO  FORM  NEW  (AND  HOPEFULLY 

USEFUL!  FUNCTIONS. 

FOT  GATE  GI,  PPOTAB(GI)  POINTS  TO  FIRST  OF  A  SEQUENCE  OF 

ROWS  OF  POTAB  CONCERNING  GI . 

NUMBER  OF  GATES  IN  THE  NETWORK  (EXCLUDES  EX  VAR,  ALSO 

NQTE  SOME  OF  R  GATES  MAY  BE  ISOLATED). 

PPLCflf*!  STORES  THE  SELECTED  GATE'S  IP  GATES  WHICH  HAVE 

ERROR-COORDINATES  OF  WEIGHT  2  OR  ABOVE. 
RPLC(2,*)  STORES  THE  SELECTED  GATE'S  IP  GATES  WHICH  HAVE 

AT  LEAST  ONE  ERROR-COORDINATE  OF  WEIGHT  1. 
LIST  OF  CONNECTIONS  ADDED  TO  A  NETWCPK  (IN  CODED  FORM). 
LIST  OF  CONNECTIONS  REMOVED  FROM  A  NETWORK  (CODED  FORM). 
NO.  OF  CONNECTIONS  ADDED  T3  A  NETWORK.   POINTS  TO  LAST 
ENTRY  IN  PSCONN. 
SFT  S  CONSISTING  OF  INPUTS  OF  THE  GATE  UNDER  CONSI DERATION? 
WHICH  ARE  TO  BE  REPLACED  IF  POSSIBLE.  P 

SET  SI  CONSISTING  OF  ELEMENTS  OF  SET  S  WHICH  CAN  BE        P 
REPLACED  BY  ELEMENTS  IN  SET  S2.  P 

SET  S2  CONSISTING  OF  FUNCTICNS  WHICH  APE  CANDIDATES  FOR    P 
REPLACING  ELEMENTS  IN  SET  S.  3 

SET  Tl  CONSISTING  OF  ESSENTIAL  ONES  COVERED  BY  ELEMENTS  INP 

SET  SI.    3 
STA»TING  ELEMENT  OF  SET  S.  P 

SUC*MX(GI,GJ)>0  MEANS  GATE  GJ  IS  A  SUCCESSOR  OF  GATE  GI.   P 
SUC$MX(GI,GJ)=0  IF  NOT.  ? 

SUM  OF  ALL  ACTIVE  INPUTS  OF  tHe  GATE  UNDER  CONSIDERATION.  P 
SUM  3F  ALL  ACTIVE  ELEMENTS  OF  SET  S2.  P 

NUMBER  OF  CONNECTIONS  REMOVED  FROM  A  NETWORK.   POINTS  TO   P 
L&ST  ENTRY  IN  RTCONN.  P 

USED  to  STORE  AMOUNT  OF  ELAPSED  COMPUTATION  TIME.  P 

MNFMONIC  NAMES  FOP  EXTERNAL  VARIABLES  AND  GATES.  P 

POINTS  TO  LAST  ELEMENT  IN  VF$1  .  P 

SIMILAR  TO  F$l,  EXCEPT  THIS  LISTS  JUST  COMPONENT  POSITIONS' 
(OF  O'S  IN  CSPF  VECTOR  OF  GCO)  COVERED  ONLY  BY  REMAINING  P 
CONNECTED  INPUTS  TO  GCO. 


ORIGINALLY 


NEPMAX 
N 
R 

NM 

LEVM 
ISUCC(40,40) 


M 

N2 

KFLAG 

NPN2 

LISUCC(40) 


A 

Nl 

JFLAG 

NM1 

I  PR  ED (40, 40) 


B 

NR 

COST 

NN2 

LIPRED140) 


1  ,    INC$MX(40,*0I 

2  ,    GLEVEL(40) 
COMMON    T 

COMMON    IFLAG 

1  ,F$UB1 

2  ,LISTL(40I 

3  ,POINTR 

COMMON    P0TAB(200,42) 

1  ,RPLC(2,40) 

2  ,I0X1E(32) 

3  ,SETSl(40) 

4  ,STS 

5  .LIP 

6  ,  NOO 

7  »$LTH 
COMMON 

DIMENSION  CNTLIS(l^), 
0*ta  K0UNT5  /O/,  UBLAN 
990  READ(5,1000,ENP=503)  J 
NFPM4X  7S  THE  MAXIMUM 
1000  F0RMAM20A4/5I4,A4,I4) 
KEVXC=0 

IF(UC.NE.UBLANK)    KEYXC 
CALL    PAGE 
CALL    LINE(IO) 
K3UNT5  =  K0UNT5«-1 
PRINT    2t    X0JNT5 
2    P0RM*T(20X,'***    OPTIMA 
C&LL    L!NE(4) 
PRINT    1005,    UHEAD 
1005    F0RM4T(25X,20A4) 
CALL    LINE(4) 
PRINT    10,    N,M,A,B 
10    F0PMAT(30X, 'NUMBER 
1  30X,«NUMBER 


,    SUC$MX(40,<V 

,    LGLISTC40) 

,    RTCONN(IOO) 

,POINTA 

,INPTCV(32) 

,POINTL 

,VF$1(32) 

,PP0TA8(40) 

,10X0(321 

,SUMP(32) 

,N0SI 

,SUMS2(32) 

,NOOE 

♦  N01 

,$PW 

NOTISV 

UGATE(40),UHE 

K/»  •/ 

HEAD,    N,    M,    R 

ALLOWABLE  NUM 


=  1 


0),  P$( 
,  HLI 
•  S 
,ESS1 
,LIST 
,ORIG 
,VF$J 
tL*>OT 
»I0X3 
,SETT 
,SETS 
,SETS 
,KEYA 
,N01E 
,$N0E 
♦N0S1S 

AD(20) 


2,1280) 
ST(40,4 

S(40) 

C(40) 

IN140) 

Bl 

AB(40) 

E(32) 

1(32) 

(40) 

2(200) 


0) 


,  A,  B,  JC,  NE 

BER  OF  ERROR  P 


,  UNAME(40) 
,  TIME 

,  RSCONNdOO 
,F$1(32) 
♦POINTC 
,IPATH(40) 
,GSMALL(40,3 
,NRPLC(2) 
,10X1(32) 
,NOTl 
,NOS 
,N0S2 
♦  KEYB 
,SGT 
fGl 
,LMTS2 


PMftX 
OSITIONS 


L  NOR  NETWORK  ***•  , 50X, • PROBLEM  N3.=  ',14  ) 


OF 
IF 


2  30X,«C0ST 

3  47X, 
CALL  LINE(l) 
IF(KEYXC.NE.O)  GO  TO  25 
PUNT  21 

21  F0RMAT(IH0,29X,« 

GO  TO  30 

25  CONTINUE 

PRINT  28 

28  FORMATUHO^X,' 

I  X,  Y •) 

30  CONTINUE 

CALL  LINE(5) 
*****  SET  jp  EXTERNAL  V*RIA 
N2=2**N 

IF(NEPMAX.E3.0)NEPM4X 
H=N*N2 
J  =  N2 
L=    1 
1*0 

00    1011    11*1, N 
J=J/2 
L  =  L*2 
SN=    1 

D^    1010   LL=1,L 
SN=-SN 


VARIABLES  *',I4    // 

FUNCTIONS  =  ',14    // 

COEFFICIENT    4  =«,I4// 

•8  s',14) 


UNCOMPLEMENTED    VARIABLES       X    - 


BOTH    COMPLEMENTED    AND   UNCOMPLEMENTED    VARIABL 


BLES  ***** 
=  N2/2 


PI 
PI 
Pi 
PI 
PI 
»I 
2)P1 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
°1 
PI 
»1 
Pi 
PI 
Pi 
PI 
PI 
Pi 
PI 
Pi 
oi 
oi 
oi 
Pi 
Pi 
Pi 
'1 
Pi 
PI 
PI 
PI 

pi 

pi 
pi 
pi 

ESPl 
PI 
Pi 
PI 
Pi 
Pi 
Pi 
Pi 

pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 

01 


15930 

16330 
16100 
16200 
16300 
16400 
16500 
16600 
16700 
16800 
16900 
17000 
17100 
17200 
17303 
17430 
17530 
17630 
17700 
17833 
179D3 
18033 
18100 
18233 
18300 
18430 
18500 
18630 
18700 
18800 
18930 
19333 
19130 
19230 
19333 
19400 
19533 
19600 
19700 
19833 
19900 
20000 
20133 
20230 
20330 
20433 
20500 
20630 
20700 
20830 
20900 
21030 
21100 
21233 
21300 
21400 
21530 
21600 
21730 
21830 
21933 


V»( l*SN)/2 

on    1009    JJ»1,J  pl    ?2C| 

I»T*1  PI    22H 

PS(lt!)*V  °i    222 

IF<KEYXC.NE.0)P$(1,I*H)-1-V  P1    ??3| 

1009  CONTINUE  pl    22«| 

1010  CONTINUE  pl    225 

1011  CONTINUE  pl  226 
IMKFYXC.NE.OI  N»N«-N  P1  227 
N1»N*1  pl  228 
NM«N*M  Pl  229 
Mmi»Nm+i  »1  230 
NN,?  =  N*N2  +  1  Pl  231 
NR*N*R  Pl  232 
N*N?=NR*N2  *l  233 
CALL    CJTPjT(INC$HX,<EYXC)  P1    ?** 

:****♦    ,p40    IN    NErwnRK    INFORMATION    AND    SET    UP    INCSMX    *****  J  J    "5 

READ    1001,          TNTLIS                                                           INLJ-^X    *****  n    236|i 

1301    F0R"AT(16I51  Pl    237|j 

00    1115    GI«1,NR  pl    238* 

00    1115    GJ«l,NP  °l    2191 

1115    INCSMX(GI,GJI»0  P1    240:r 

03    1120    1-1,1*4  pl    24H 

ITEM  =  CNTLIS(I  )  pl    242!» 

IF( ITEM.EQ.O)    GO   TO    1119  Pl    243d 

3T  =  TTEM/100  pl    24*(| 

Gj=irEM-l00*GI  Pl    245; 

TMC$^X(GIfGJ)»l  P1    2A6(l 

G3    TO    1120  pi    247:» 

1119  C0ST«A*R  +  B*U-1)  P1    2*8: 

S3    TO    1130  pl    249C 

1120  CONTINUE  pl    250C 
1130    CONTINUE  pl    251C 

C4LL    SUBNET  pl    252C 

CALL    PVALUE  pl    253C 

CALL    LINEC4)  pl    254C 

PRINT    1140,    COST  '1    255C 

1140    F0RMATC20X,'    ORIGINAL    NETWORK           COST-',    15)  l\    "°3 

CALL    L!NE(4)                                                                         *          '  pl    257C 

CALL    TRUTH|B$,1)  pl    2580 

CALL    LINEU)  pl    2593 

CALL    CKT(INC$MX,GLEVEL)  P1    2603 

C  pl    2610 

C*****    ENTRy    REDUNDANCY    CHECK    *****  P1    2623 

S    =    0  pl    2630 

T    =    o  91    2640 

CALL    UNNECE  pl    2650 

GATES    »    M  pl    2663 

C    =    0  pl    2670 

DO    4    GI    «      i,NR  P1    2680 

C   *   C    +    LISUCCCGII  Pl    2690 

lF(GI.LE.NN)GOTn*  pl    2703 

!F(LISUCC{GI).GT.OIGATES-GATES^l  JJ    il\l 

4    CONTINUE  91    2723 

OLDCST    =    A*GATES    ♦    B*<CI  P1    2733 

T=o  Pl    2740 

S=0  Pl    2753 

C              INITIALIZE    TINER    T3    10    MINUTES  l\    V™ 

CALL    STIMEZ(60000)  P1    2770 

TINE   «    KTIMEZ(O)  P1    2783 

C****         PROCEDURE      RDTCNF  P1    2793' 

Pl    2800' 


CALL  ROTCNT 

CALL  FOR  FLAPSED  THE 

TIME  =  KTTMEZ(O)  -  TIME 

CALL  LINE<4) 

PRINT    3915 
3916    criBMMlZOXt'TIME    ELAPSED    ««,I8,»       CENTISECONDS  •  I 
3915    F0RMAT(2OX,»NETWOP<    OERIVFO    BY    RDTCNT'J 

PRINT    3916, MME 

CALL    LIMFC4) 

CALL  TRUTH(P$,1 ) 

CALL  LTNE(4) 

CALL  CKT(TNC$MX,GLEVEL) 

RATES  =  M 

:  =  0 

OH  36  GI  =  1,NR 

C  =  C  «•  LISUCC(GI) 

IF(GI.LE.NM)  GO  ^0  35 

TF(LISUCC(GI).GT.O)  GATES  =  GATES  «■  I 

36  CONTIMUE 

NEWCST  =  A*GATES  «■  3*C 
IF(NE»«CST.LT.0LDCST)G3  TO  37 
PRINT  105 
105  FDRMATdH  ,10X,«N0  REDUNDANCY  FOUND.1) 
GO  TO  990 

37  C«LL  LINEC3) 
PRINT  320,NEWCST 

320  F0PMAT(9X,«*  A  NETH3RK  DERIVED  BY  RDTCNT»/9X,»  C3ST  = 

GO  TO  990 
500  STOP 

ENO 


PI 
PI 

PI 
PI 
PI 

PI 
Pi 
PI 
PI 
PI 
oi 
PI 
PI 
PI 

»i 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 
pi 


28100 
28200 
28300 
28430 
28500 
28600 
28730 
28800 
28900 
29000 
29100 
29200 
29300 
29400 
29530 
29  63  3 
29700 
29800 
29900 
30000 
30100 
30200 
30300 
30400 
30500 
30630 
30700 
30833 
30900 
31000 


SUBROUTINE  3UTPUT( MATR IX , ARRAY ) 
IMPLICIT  INTEGER*MA-T,V-Z,$),  REAL(U) 

DEFINITIONS  OF  'COMMON*  VARIABLES  CAN  BE  FOUND  U    MAIN  PROGRAM. 


COMMON 
COMMON 


:ommd 


COMMON 

COMMDN 


OMMO 


:ommon 

DIMENS 
OIMEN^ 


NEPMAX 
N 
R 

NM 

LEVM 

ISUCC(40,40) 
INC$MX(40,'*0) 
GLEVEL(40) 

T 

IFLAG 
F$UB1 
LISTL(40) 
POINTR 

P0tAB(2O0,42) 
RPLC(2,40) 
TDX1E(32I 
SETSK40) 
STS 
LIP 
NOO 
$LTH 

ION  UX(5),  U/(5) 
ION  MATRIX(40,40 


t  M 
t  N2 
,  KFLAG 
,  NRN2 

,  lisu:cc 

,  SUC$MX( 

,  LGLIST( 

,  RTCONNt 

,POINTA 

»INPTCV(3 

,POINTL 

»VF$1(32) 

,PP0'r,AB(4 

♦10X0(32) 

,SUMP(32) 

,N0S1 

tSUMS2(32 

♦  NOOE 

tNOl 

,$PW 

N0T1SV 

,  UG(40), 

) 


A 

Nl 

JFLAG 

NM1 

IPRED(40,40 

PS(2,1280) 

HLIST(40,40 
t  S 

,ESS1S(40> 
♦LISTCC40) 
,0RIGIN(40) 
,VF$JB1 
,LPOTAB(40) 
,IDX0E(32) 
,SETT1(321 
,SETS(40I 
,SETS2(2001 

♦  KEYA 
,N01E 

♦  $NOE 
,N0S1SV 

UF(40),  ARPAY(40)t 


» 

f 
t 

40)    , 

40,40), 
40)  t 
100)   , 

2) 


0) 


B 

NR 

COST 

NN2 
)  ,  LIPRED(401 

,  UNAME(40) 
I  ,  TIME 

,  RSCONN(IOO) 
,F$l(32) 
,POINTC 
, I  PATH (40) 


PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 


,GSMALL(40,32IPi 

,NRPLC(2)      PI 

,IDX1(32)      PI 

,N0T1  PI 

,NOS  PI 

,N0S2  PI 

,KEYB  Jl 

,$GT  PI 

,GI  PI 

,LMTS2  PI 

ARRAY2(2,1280)  PI 

PI 


31100 
31200 
31300 
31400 
31500 
31600 
31700 
31800 
31930 
32000 
32100 
32200 
32330 
32433 
32530 
32600 
32700 
32800 
32903 
33000 
33100 
33233 
33300 
33400 
33500 
33600 
33700 
33800 
33900 


DATA 
DATA 
DATA 


UX     /• 
UY/« 
IIF    /• 
t 


Xl« 
'l  •  - 


Y3« 


1'  t 

9«, 

17«, 

25«, 

33', 


3* 


X4«  , 
Y4',1 
4», 
12% 
20«  , 
28', 
36  •, 


•  X5«/ 
Y5V 
5»  , 
13', 
2l't 
29«, 
37*  , 


22 


7« 


23 


38« 


•  8« 

•  16» 
i  24» 

•  32« 

•  40V 


0ATA    GMAX/40/ 

KEYXC=ARPAY(1) 

IF(KEYXr..NE.O)  GO  TQ  50 
DO  I  GI=1,N 
UNAMFIGI »=UX(GI ) 

1  CONTINUE 
GJ  TO  100 

50  CONTINUF 
L  =  N/2 
DO  4  GI*1,L 

UNAME(GI)=UX(GI) 
UNAME(GI*L)=UY(GI) 

4  CONTINUE 
100    CONTINUE 

03    2    GI=N1,0MAX 
UNAME(GI)=UF(GI-N| 

2  CONTINUE 
RETURN 

FNTRY  LINE(L) 
DO  6  LL=1,L 
OPINT  5 

5  F3RMAT(1H  ) 

6  CONTINUE 
RETURN 

ENTRY  PAGE 
PRINT  7 

7  FORMAT(lHl) 

RETURN 

ENTRY    CKTMATR  IX, ARRAY) 
PRINT    10 
10    F3RMATC1H    ,8X,«GATE    ..    LEVEL', 6X, 
DO    20    GJ=N1,NR 
G  =  0 

DO    15    GI»1,NR 
IF(MATRIX(GI,GJ ).E0.0)    GO    TO    15 
G=G+1 

UG(G)=UNAME(GI ) 
15      CONTINUE 

IF(G.EO.O)    GO    TO    18 

PRm    17,    >JNAME(GJ),ARRAY(GJ),  (UGI  GG)  ,GG= 

17  P0RHAT(1H0,    9X,A3,5X, •  /  •  ,  I  2,  •  /  •  ,  5X  ,  35( 
GO    T0    20 

18  PRINT    19,     UNAME(GJ),ARRAY(GJ» 

19  FORMATClHOf  9X , A3, 5X, • / • , 12 , • / • ) 

20  CONTINUE 
RETURN 

ENTRY  TRUTHCARRAY2, J) 
IFtJ.EQ.2)  GO  TO  36 

PRINT  35 


•FED  8Y'/) 


i,Gl 
A3)) 


PI 
PI 
Pi 
PI 
PI 
PI 
PI 
PI 
PI 
>l 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
>1 
PI 
PI 
PI 
PI 
Pi 
PI 
PI 
PI 
PI 
Pi 
PI 
PI 
PI 
PI 
PI 
Pi 
»1 
Pi 
Pi 
PI 
PI 
Pi 
Pi 
PI 
PI 
PI 
PI 
Pi 
PI 
Pi 
PI 
PI 
Pi 
Pi 
Pi 
Pi 
PI 
Pi 
Pi 
PI 


34000 
34100 
34200 
34300 
34400 
34500 
34600 
34700 
34800 
34900 
35000 
35100 
35200 
35300 
35400 
35500 
35600 
35700 
35800 
35900 
36000 
36100 
36200 
36300 
36400 
36500 
36600 
36700 
36800 
36900 
37000 
37100 
37200 
37300 
37400 
37500 
37600 
37700 
37800 
37900 
38000 
38100 
3  82  00 
38300 
38400 
38500 
38600 
38700 
38800 
38900 
39000 
39100 
39200 
39300 
39400 
39500 
39600 
39700 
39800 
39900 
40000 


35  F0RMAT(11X, 

GO  to  38 

36  P«INT    37 

37  FTRMATCllX, 

38  :ONTINUE 
D3  40  GT*1,NR 

IL0=(GI-l)*N2+l 


•TRUTH  TABLE1/) 
•REQUIREMENT  TABLE*) 


!HI=IL0+N2-1 

PRW  41,  JNAME(GI),  (ARRAY2(J,I), I»ILO,IHI  ) 

ON'INUE 


<*0    CONTINUE 
41  F3RMAM1H0,  9X,A3,« 
RETURN 

END 


32(11, IX)) 


PI 
PI 
PI 
Pi 

PI 
PI 
PI 
PI 

PI 

»i 

pi 
n 
pi 


40130 
40230 
403D0 
40400 
40530 
^0603 
40700 
40830 
40930 
41030 
41100 
41230 
41330 


SUBROUTINE  SUBNET 

IMPLI3IT  INfEGER*4U-T,V-Z,$),  REAL(U) 

DEFINITIONS  DF  •COMMON1  VARIABLES  CAN  BE  FOUND  IM  MAIN  PROGRAM. 


COMMON  NEPMAX 

COMMON    N 

I    t   * 

2  9    NM 

3  ,    LEVM 
COMMON    ISJCC(40,*3) 

1  ,    INC$MX(40,*0) 

2  .    GLEVFL(40) 
COMMON    T 

"-OMMON    I  FLAG 

1  ,F$UB1 

2  ,LISTL(40) 

3  ,POINTR 

C3MM3M    P3TAB(200,*2) 

1  ,PPLC(2,40) 

2  ,1DXIE(32) 

3  ,SETS1(40) 

4  ,STS 

5  ,LIP 

6  ,  NOO 

7  ,$LTH 
C3MM0M 

DIMENSION  X(40),LXU0, 
ENTRY  PRESUC 
1  :3NTINUE 

D3  10  GI*1,NR 
LS  =  0 
LP  =  0 

DO  5  GJ»1,NR 
IFUNC$MX(GI,GJ).EQ. 
LS=LS+1 

ISUCC(LS,GI)*GJ 
G3  TO  5 
3    IF(INCiMX(GJ,GI).EO. 
LP=LP+l 

IP»EP(LP,GI )»GJ 
5   CONTINUE 

LISJCC(GI)=LS 
LIP*ED(GI)=LP 
10  CONTINUE 


t  M 

t  N2 

,  KFLAG 

,  NRN2 

,  LISUCC(40) 

t  SUC$MX(40,40) 

,  LGLIST<40) 

,  RTCONN(IOO) 

.POINT  A 

,INPTCV(32) 

♦POINTL 

,VF*1(32) 

,PP0TAB(40) 

,IDXO(32) 

,SUMP(32) 

,NOSl 

,SUMS2(32) 

,NOOE 

,N01 

,$PW 

N0T1SV         , 

2)t0UT0(40) 


0)  GO  TO  3 


0)  GO  TO  5 


A 

Nl 

JFLA 
NM1 
IPRE 
P$C2 
HLIS 
S 
,  ESS1S 
,LISTC 
.ORISI 
,VF$UB 
,LPOTA 
,IDXOE 
♦SETT1 
,SETS( 
♦SETS2 
,KEYA 
,N01E 
,  $NOE 
N0S1SV 


t  B 

,  NR 
G         ,  COST 

♦  NN2 
D(40,*0)  ,  LIPRED(40) 
,1280)    ,  UNAME(40) 
T(40,<»0)  ,  TIME 

,  RSCONN(IOO) 
140)      ,F$1(32) 
(40)      ,POINTC 
N(40)     ,IPATH(40) 
1         ,GSMALL(40,32 
B(40)     ,NRPLC(2) 
(32)      ,IDX1(32) 
(32)      ,N0T1 
40)       ,N0S 
(200)     ,N0S2 

,KEYB 

,$GT 

,G$i$$$ 
,LMTS2 


PI 
Pi 
PI 
»1 
PI 
PI 
>1 

pi 
pi 
pi 
pi 
pi 
pi 
pi 
»i 
pi 
pi 
)pi 
pi 
pi 
pi 
pi 

PI 
PI 
»1 
Pi 
PI 
Pi 
PI 
Pi 
»1 
Pi 
PI 
PI 
Pi 
>1 
pi 
pi 
pi 
pi 
>i 
pi 
°i 
pi 
pi 


41400 
41530 
41600 
41700 
41830 
41900 
42000 
42133 
42230 
42330 
42433 
42500 
42600 
42733 
42830 
42930 
43030 
43100 
43230 
43330 
43430 
43530 
43600 
43700 
^3830 
43930 
44330 
44130 
44230 
44333 
44400 
44530 
446  33 
44700 
44800 
44900 
45030 
45130 
45200 
45330 
45400 
45500 
45630 
45730 
45833 
45930 


E^TRY  SUCCES 

00  21  GI»ltNR 

03  21  GJ-1«MR 

suc*mxcgi,gji«o 

21 

CONTIYUF 

0^  ^0  GJ»NltNR 

03  22  GS-l,NR 

X(3S)*0 

22 

CONTINUE 

XlGJl-l 

L0»1 

LXC1.D-GJ 

V*l 

23 

CONTINUE 

V»l-\/ 

SW0«1*V 

SWi*2-V 

L1  =  0 

00  28  LL»1,L0 

3M«LXILL,SW0) 

L1P»L1PRE0(GM» 

IFCLIP.EQ.OI  GO  TO  28 

DO  26  LP«1,LIP 

GP«IPRED(LP,GM) 

IF(XCGP).GT.O)  33  TO 

SUC$MX(GP,GJ>*1 

L1*L1+1 

LX(L1,SKI>=GP 

X(GP»»1 

26 

CONTINUE 

28 

CONTINUE 

IF(Ll.EO.O)  GO  TO  30 

L0=L1 

GO  TO  23 

30 

CONTINUE 

ENTRY  LEVEL 

33  40  GJ*1,NR 

0UT3(GJ)*LISUCC(GJ> 

GLEVEL(GJI«-1 

40 

CONTINUE 

LEV»0 

45 

LEV»LEV+l 

G«0 

DO  50  GJ«1,NR 

IF(3UTO<GJI.GT.O  .3*. 

G=G  +  l 

HLIST!G,LE\/I*GJ 

GLEVELIGJ)*LEV 

50 

CONTINUE 

IF(G.EQ.O»  RETURN 

LGLIST<LEV)*G 

00  60  0G=1,3 

GJ»HLIST(GG,LEV) 

LIP-LIPRED(GJ) 

IF(LIP.EO.O)  GO  TO  60 

DO  55  LP»1,LIP 

GP«IPRED!LPtGJ) 

3UT0(GP)x3UTOCGP)-l 

55 

CONTINUE 

60 

CONTINUE 

*l    4&0 
PI    461 


26 


GLEVEL(GJ).GT.O)    33    TO    50 


LEVM»LEV  01  52100 

GO  TO  45  PI  52200 

»1  52330 

PI  52400 

»1  52500 

ENTRY  PVALUE  Pi  52630 

DO  130  L=NN2,NRN2  PI  52700 

P$lltL)=l  Pi  52830 

100  C2NTTNUE  PI  52930 

PI  53000 

LEV=LEVN  »1  53130 

110  CONTINUE  PI  53230 

L0=L3LIST(LEV)  PI  53330 

DO  130  L=1,L0  PI  53400 

GI*HLIST(L,LEV)  PI  53500 

LTS=L!SUCC(GI)  PI  53630 

RSGI»(GI-1)*N2  Pi  53730 

LJTH=0  PI  53800 

OP  115  JTH=1,N2  Pi  53930 

IF(P$(1,BSGI*-JTH).E0.0)  GO  TO  115  Pi  54330 

LJTH=LJTHU  Pi  54130 

X(LJTH)=JTH  »1  54230 

115   CONTINUE  PI  54330 

IF(LJTH.EQ.O)  GO  TO  130  PI  54400 

0?  125  LS=1,LIS  PI  54530 

GSMSUCC(LStGI)  Pi  54600 

8SGS=tG$-ll*N2  PI  54700 

DO  120  LJ'itLJTH  Pi  54830 

PS(ltXCLJ)*9SGS)»0  »1  54930 

120    CONTINUE  Pi  55030 

125   CONTINUE  Pi  55130 

130  CONTINJE  PI  55200 

LEV=I_CV-1  oi  55330 

IF<LEV.GE.2I    GO    TO    110  PI  55400 

RFTIJPM  Pi  55500 

PI  55600 

Pi  55730 

PI  55800 

ENTRY  RST*CT(KEYRST)  >1  55930 

KEYRST=0  PI  56030 

IF(LEVM.GT.LMAX)GO  TO  ISO  01  56100 

00  150  GI»Nl,NR  PI  56230 

IFlLIPREDfGII.GT.FANINIGO  TO  160  01  56300 

IF(LISUCC(GI).GT.F*NOUT)GO  TO  160  01  56400 

150  CONTINUE  01  56500 

RETURN  Oi  56633 

160  KEYRST*1  01  56700 

RETURN  Oi  56830 

ENTRY  UNNECE  PI  56900 

>***  THIS  ENT^r  DISCONNECT  ALL  GATES  FROM  WHICH  THERE  IS  NO  PATH  PI  57030 

*0  3UTPUT  GATES  ♦****  PI  57130 

TS=T  01  57200 

00  209  GI*NN1,NR  01  57300 

IF(GLEVELCGIKEQ.i)  GO  TO  207  ° 1  57400 

DO  205  GJ=N1,NM  *l  57500 

IF(SJCtMXCGI,GJ).3T.0)  GO  TO  209  PI  57630 

>05   CONTINUE  PI  57700 

****  SI  IS  PEDUNDANT  *****  01  57800 

?07  CONTINUE  01  57930 

LIP=LIPRED<GI  I  01  58030 

IFILIP.EO.OI  GO  TO  206  p 1  58100 


DO    203    LI»1,LTP 

PI 

5820  . 

GK-IPRED(LI,GI » 

>1 

S830I1' 

IF( lN:$MX(GK,GI).LE.O)    GO    TO    203 

PI 

58*011 

r«r*i 

<»1 

58501! 

RTCnNN(TI»100*GK*GI 

»1 

58601 

inc$mx(gk,gi »-0 

PI 

5870(„ 

203       CONTINUE 

»1 

5883!1 

206      LIS«LISUCC(GI ) 

PI 

5890( 

IF(LIS.EO.O)    GO    to    209 

PI 

5903( 

DP    20*    LI-ltLIS 

PI 

5910( 

GK-lSUCC(LIfGI) 

Rl 

5923( 

IF! IN:$HX(GI,GK).LE.O)    GO    TO    204 

PI 

5930C 

T»T*1 

»1 

5940C 

RTC3NN(T)«100*GI*3K 

PI 

59503 

in:$nx(gi,gk)»o 

»l 

5960C 

204      CONTINUE 

Rl 

59700 

209    CONTINUE 

PI 

59830 

IFIT.6T-TSI.   GO   TO    I 

»1 

59900 

RETURN 

PI 

6OO00 

END 

»1 

63100 

SUBRTJTINE    *DTCNT 

Rl 

60200 

IMPLICIT    INTEGER**(A-r,V-Z,$l,    PEAL(U» 

PI 

6  0300; 

c 

»1 

60*03 

c 

DEFINITIONS    OF     'COMMON*    VARIABLES    CAN    BE    FOUND    IN    MAI 

PI 

6O500 

c 

Rl 

6O630 

COMMON    NEPMAX 

»l 

6O700 

COMMTN         M                                 ,    M                                 »    A 

.    B 

PI 

60833 

1               ,          R                                 ,    N2                              ,    Nl 

i    NR 

Rl 

60933 

2              t          NM                              ,    KFLAG      .                ,    JFLAG 

t    COST 

Rl 

61OO0 

3               t          LEV*                         ,    NRN2                         t    NMl 

*    NN2 

PI 

61133 

COMMON         ISJCC(*0,*3I    ,    LISUCC(40)         ,    IPRED(40,40) 

,    LIPRED(40) 

Pi 

61230 

1               ,          INCSMXUO, VOIt    SUC$NX<40,40),    P$(2,1280) 

,    UNAME(40) 

PI 

61333 

2               t         GLEVEL(40|          ,    LGLISTC40)          ,    HLISTI40,*0) 

,    TIME 

PI 

61*33 

COMMON         T                                 ,    RTCONNdOOl       ,    S 

,    RSCONN(IOO) 

»1 

61530 

COWMO*         IFLAG                      ,POINTA                      ,ESS1S<*0) 

♦FS1C32) 

PI 

61603 

1               ,F$UR1                               ,INPTCV(32)            ,LISTC<*0> 

,POINTC 

PI 

61700 

2               ,LISTH*OI                    .POINTL                      ,0RIGIN(40) 

.IPATHC401 

PI 

61830 

3              ,P0INTR                            ,VF$1(32)                  ,VF$UBl 

,GSMALL(40,32)P1 

61930 

COMMON         P3TAB(200,42ltPP0TABI40)            ,LP0TAB(40) 

,NRPLC(2) 

PI 

62033 

1               ,RPLC(2,40)                  ,10X0(321                  ,IDX0E(32) 

,10X1(32) 

PI 

62100 

2               ,TDX1E(32)                    ,SUMP(32)                  ,SETT1C32» 

,N0T1 

PI 

62233 

3              ,SETSl(40)                    ,N0S1                            ,SETS«40I 

,NOS 

»1 

62300 

4              ,STS                                  ,SUMS2(32>              ,SETS2C200) 

«N0S2 

PI 

62*30 

5              ,LIP                                   ,N00E                            ,KEYA 

,KEYB 

PI 

62500 

6              ,N00                                    ,NOl                              ,N01E 

,$GT 

PI 

62600 

7              ,$LTH                                 ,$PW                              ,$NOE 

,GI 

PI 

62733 

COMMON                                           N0T1SV                       ,N0S1SV 

»LMTS2 

PI 

62833 

DIMENSION    PSUM(321,    CHNGCPC32),    INDCTR(401 

Rl 

62930 

c 

PI 

63030 

ETRKEY»0 

PI 

63100 

c 

*1 

63230 

C*****    THIS    SUBROJTINE    FIND    ALL    SINGLE    REDUNDANT    CONNEXIONS    IN    A    GIVEN 

Rl 

63330 

C 

NETWORK    SPECIFIED    BY    INCSMX    ***** 

PI 

63*00 

C 

PI 

63530 

DO    9    TH»NN2,NRN2 

PI 

63600 

9    R*<2,TH)»0 

PI 

63700 

io  :all  unnece 

n 

63800 

LEV»LEVM 

Rl 

63900 

TS«T 

»1 

6*000 

IMTO  GATE  GJ  ***** 


GO  TO  12 


*****  CONSIDER  CONNECTIONS  INTO  GATES  IH 

11  LEV*LEV-1 
UHLEV.LE.OI  GO  TO  90 
LGL*LGLIST(LEV) 
L3  =  0 

*****  CONSIDER  C0NNECTI3NS 

12  LG=L3*1 
IF(LS-GT.LGL)    GO    to    11 
GJ  =  HLISMLG,LEVI 
IF(LE</.EQ.1.4N0.GJ.GT.^MI 
IF(GJ.LE.N)    GO    TO    12 
RLEV*LEV 
LIP*LIPREO(GJ) 

00  15  TH=1,M2 
15  PSUM(TH1*0 

00  19  LI=1,LIP 
GI=IPPED(LItGJ) 
8SGI=(GI-1)*N2 
00  17  TH=ltM2 
PSU«(THI=PSUM(TH)«-P$<l,BSGH-THl 
17   CONTINUE 

19  CINTT^uf 

k****  CHECK  CONNECTION  FROM  GI  TO  GJ  ***** 
LI  =  0 

20  IF(ETRKEY.EQ.l)  GO  TO  95 
LI»LH-l 

IF(LI.GT.LIP)    GO    TO    12 
G!=IPRED(LItGJ) 
IF(INCiMXCGIfGJI.EQ.O)    GO    TO    20 

■ 
>****    ENTRY    POINT    FOR    REMCNT    ***** 

22    8SGT=(GI-1I*N2 

BSGJ    =    (GJ    -    II    *   N2 

*****  LIST  COMPONENTS  OF  GJ  WHICH  WILL  CHANGE  BY 

TO  GJ  ***** 
CHNG'O 
RLFV=LEV 
D3  2*  TH*l,N2 

IF ( PSUM (TH I. NE.l.OR.PiCl,  BSGK-THl.NE.il  GO 
TF(GJ.LE.NM)  GO  *0    20 

CHNS*CHNG*1 

p$(2,BSGJ+th|*1 

CHNGCP(CHNGI=TH 

24  CONTINUE 
IFICHNG.EO.OI  GO  T3  50 
03  25  GR=  l.NR 

25  INDCT*(GRI»1 
INDCT*(GJ|»2 

32  RLEV»«M.EV-1 

IFCPLEV.EQ.OIGO    TO    50 
RLGL'LGLISTCRLEVI 
DO   47    RLG=1,RLGL 


'<**** 


FIND  CHANGEO  COMPONENTS 
3R=HLIST(RLG,RLEVI 


IN    GR    ***** 


IF(SUC$MX(GJ,GR I.LE.OI 

INDCTMGRW 

PLIP=LIPREDfGRI 


GO    TO    47 


PI 

64133 

v  ***** 

PI 

54200 

PI 

64330 

PI 

64430 

PI 

64530 

»1 

64600 

PI 

64700 

PI 

64830 

PI 

64903 

Pi 

65000 

PI 

65133 

PI 

65230 

PI 

65333 

PI 

65400 

PI 

65503 

PI 

65600 

PI 

65700 

PI 

65800 

»1 

65900 

PI 

66030 

'1 

66133 

=>1 

66200 

PI 

66333 

PI 

66433 

n 

66500 

°i 

66630 

pi 

66700 

pi 

66800 

pi 

66933 

pi 

67033 

pi 

67133 

pi 

67233 

pi 

67330 

pi 

67400 

pi 

67500 

»i 

67600 

REMOVING  CONNEC 

67733 

pi 

67830 

pi 

67930 

pi 

68033 

pi 

68100 

TO  2* 

pi 

68200 

pi 

68330 

pi 

68400 

pi 

68503 

pi 

68600 

pi 

68700 

pi 

68830 

pi 

68930 

pi 

69000 

pi 

69130 

pi 

69200 

pi 

69300 

pi 

69430 

pi 

69500 

pi 

69600 

pi 

69700 

n 

69830 

pi 

69930 

pi 

70000 

pi 

70130 

«*SGR-(GR-ll*N2  PI 

C  PI 

:*****  NEW  OUTPUT  FUNCTION  OF  GR  *****                                    PI 

03  3*  RL!»ltRLTP  PI 

SQ-IPREDIRLIfGRI  »1 

BSGQ-IG0-1)*N2  PI 

00    33    CHN»i,CHNG  >l 

th»chngcp<chn»  pi 

«>$t?,bsg««-th)»p$l2,  jsgr*th)»p$(indctr(gq),bsgq*th)  pi 

33  continue  pi 

34  continue  pi 

03  3i  CHN»1,CHNG  PI 

th*chngcp<chnj  pi 

if(p$(2,bsgr*th1.eq.0i  go  to  35                        pi 

P$<?tBSGR*THI»0  PI 

GO  TO  36  »1 

35  »$(2,BSGR*TH)«1  PI 

36  CONTINUE  >1 

IFCGR.GT.NMI  GO  TO  %7  PI 

C  PI 

C*****  CHECK  CHANGED  CONPONENETS  IN  OUTPUT  GATES  *****                   PI 

40  DO  41  CHN»1,CHNG  »1 

TH«CHNGCP(CHN)  PI 
!F(P$(ltBSG**TH|.NE.P$(2,BSGRVTH).AND.P$(i,BSGR«>TH).GE.0lG0  TO  80PI 

41  CONTINUE  PI 
47  CONTINUE  PI 

50  Tfl  32  '1 

C  PI 

:♦****  CONNECTION  GI  TO  GJ  IS  REDUNDANT  *****  «>1 

50  T«T+l  PI 

RTC0NN(T)»100*GI«-GJ  PI 

INC*NX(G!,GJ»=0  PI 

C  PI 

C*****  UPDATE  TRUTH  TABLE  FOR  GATES  FED  BY  GJ  *****  PI 

IFICHNG.EO.DI  GO  TO  69  PI 

IFILEV.LE.2)  GO  TO  S6  PI 

LEV1=LEV-1  PI 

DO  57  PLEV»2,LEV1  PI 

RLGL«LGLIST(RLEV)  PI 

00  5S  RLS«1,RLGL  PI 

SR»HLTST(RLG,RLEV)  »1 

TF($UC$NX(GJtGR).EQ.01  GO  TO  56  PI 

RSGR«(GR-1)*N2  PI 

DO  55  CHN«1,CHNG  »1 

TH»CHNGCPCCHN)  PI 

P$(l,BSGR*TH)»P$<2,BSGP-»-THl  »1 

ot(2,BSGR*TH)*0  PI 

55  CONTINUE  PI 

56  CONTINUE  PI 

57  CONTINUE  »1 
C  PI 
C*****  UPDATE  TRUTH  TABLE  FOR  GJ  *****                                    PI 

66  DO  67  CHN»ltCHNG  »l 

P$(1,BSGJ*CHNGCP(CHN))»1  PI 

P*f  2fBSGJ«-CHNGCP(CHNl  l«0  PI 

1          67  CONTINUE  PI 

1      C  PI 

I      C****»  UPDATE  THE  SUM  OF  INPUTS  OF  GJ  *****  »1 

1          69  DO  75  TH*1,N2  PI 

1              PSUNCTH)»PSUN(TH)-P$(lfBSGI+TH)  PI 

f          75  CONTINUE  » 1 

[ 


GO  tt  20  PI  76300 

*****  rONNECTION  51  TO  GJ  CAN  NOT  BE  REMOVED  *****  »1  76400 

80  00  8?  TH=NN2rNRN2  PI  76530 

82  P$(2tTHl»0  PI  76600 

SO  TO  20  »1  76700 

90  IFCT.EO.TS)  RETURN  PI  76800 

TALL  SUBNET  PI  76730 

GO  TO  10  PI  77000 

95  IFCT.EO.TS)  RETURN  PI  77133 

CALL  SUBNET  PI  77230 

RETURM  PI  77330 

PI  77*00 

*****  CHECt  CONNECTION  31  TO  GJ  *****  PI  77500 

ENTRY  REMCNT(GItGJ)  PI  77630 

IF(INCJMXlGI,GJ).LE.O)  RETURN  PI  77730 

ET"»KEY  =  1  PI  77800 

TS=T  PI  77930 

NN2=N*N2+1  PI  78030 

NRN2=N»*N2  PI  78130 

DO  109  TH=NN2»NPN2  PI  78230 

109  P$l2fTH)=0  »1  78300 

00  115  TH=1,N2  PI  78400 

115  PSUM<THI=0  >1  78530 

LIP  =  LIPREO(GJ)  °1  78600 

LEV  =  GLFVEL(GJ)  PI  78700 

00  119  LI=ltLIP  PI  78800 

SK  =  T=>REn(LI,GJ)  »1  78900 

BSGK=(GK-l)*N2  PI  79030 

00  117  TH«1,N2  PI  79100 

PSUN(TH)=PSUM(TH)*P$<l,BSGK+TH)  PI  79200 

CONTINUE  PI  79333 

CONTINUE  PI  79400 

SO  T3  22  PI  79530 

END  PI  79600 


c 

r 

£*****  *****************************  *****************************************«,(, 

c 

c  » 
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r 
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r 
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C 

C *************** ********** ********** *****************************************i 

C 

c 


c 
c 
c 

c 
c 

r, 

C 
r 

c 

r 
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c 

c 
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c 
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IMPLICIT  INTEGER**(A-T,V-Zf$),  REAL(U)  P2 

EDITION  BRBBBBBBBBBBBBBBBBBRBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBP2 

P2 
MOT  BE  USED  IN  THIS  PROGRAM. 


NOTE:  ALL  COMMON  VARIBLES  MIGHT 


COMMON 
$ST: 

$LTHi 

SNOE: 


$Ptf: 

A: 

B: 

COST: 

5SS1S: 


VARIABLES: 
POINTS  TO  A 
IN  THIS  COL. 
POINTS  TO  A 
IN  THIS  COL. 
POINTS  TO  A 
IN  THIS  COL. 
ROW  IS  USED. 
POINTS  TO  A 
IN  THIS  COLJMN 
HEIGHT  FOR  NO. 
WEIGHT  FOR  NO. 


F$UB1: 
F$l: 

Sis 

GLEVEL: 

ISMAIL : 
HLIST: 

10X0: 

IDXOE: 
10X1: 

IDXIE: 


•COLUMN*  OF 
TELLS  GATE 


POTAB.  FOR  EACH  'ROW1  THE  ENTRY 
WHERE  FN.  IS  REALIZED. 
•COLUMN*  OF  POTAB.   FOR  EACH  «ROW»  THE  ENTRY 

TELLS  HOW  MANY  CONNECTIONS  MUST  BE  ADDEO. 
•COLUMN*  OF  POTAB.   FOR  EACH  'ROW*  THE  ENTRY 
TELLS  THE  NUMBER  OF  1-ERRORS  CREATED  IF  THIS 


t  r 


OLUMN' 


OF  POTAB.   FOR  EACH  •ROW1 
TELLS  THE  PREFERENCE  WEIGHT. 
OF  GATES  IN  COMPUTING  COST  FUNCTION. 
OF  CONNECTIONS  IN  COMPUTING  COST  FUNCTION. 


COST  OF  NETWORK  -  A  MEASURE  OF  NETWORK  SIZE. 
RECORDS  NO.  OF  ESSENTIAL  1»S  IN  EVERY  INPUT  TO 


02 
92 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
»2 
P2 
P2 
P2 
P2 
P2 
CURRENT  GC0P2 


THE  ENTRY 


(POSITIONS  IN  ESSiS  CORRES.  TO  GATES  NOT  FEEDING  GCO  ARE  P2 

IGNORED).  P2 

POINTS  TO  LAST  ELEMENT  IN  F$l.  P2 

LISTS  (CONSECUTIVELY)  POSITIONS  OF  DESIRABLE  l«S  (FOR  P2 

COVERING)  IN  A  CONNECTIBLE  FUNCTION.  P2 

LABEL  OF  A  PARTICULAR  GATE.  P2 

GLEVEL(GI)  TELLS  WHICH  LEVEL  OF  THE  NETWORK  GI  IS  IN.  P2 

STORES  INTERMEDIATE  AND  FINAL  CALCULATED  CSPF'S.  P2 

HLIST(I,J)  GIVES  NAME  OF  I-TH  GATF  (OR  EX.  VAR.)  IN  NET-  P2 

WORK  LEVEL  J.  P2 

LIST  OF  0-:OORDINATES  IN  CSPFE  OF  THE  GATE  UNDER  P2 

CONSIDERATION.  P2 

LIST  OF  0-ERROR-COORDI NATES  IN  CSPFE  OF  THE  GATE  UNDER  »2 

CONSIDERATION.  P2 

LIST  OF  1-COORDINATES  IN  CSPFE  OF  THE  GATE  UNDER  P2 

CONSIDERATION.  P2 

LIST  OF  1-ERROR-COORDINATES  IN  CSPFE  OF  THE  GATE  UNDER  P2 


001 
002) 

003) 
00  V 

oov 

006) 
0073 
008) 
009) 
010! 
Oil) 
012) 
013) 
01*! 
015) 
016) 
017) 
018) 
019) 
020) 
021) 
022) 
023) 
02*) 
025) 
026) 
027) 
028) 
029) 
030) 
03D 
032) 
033) 
03*) 
035) 
036! 


IFLAG: 
INC$MX: 

INPTCV: 

IPAM: 

IPRED: 

isucc: 

JFLAG: 
KEYA: 

KEYB: 

KFLAG: 

LEVM: 

L3LIST: 

LIP: 

LIPPED: 

LTSTC: 

LISTL: 

LISUCC: 

LMTS2: 
LPP'AB? 

M: 

N: 

NEPMAX: 


NM 

N*l 

NN2 

NOS 

N0S1 

N3S1SV 

NOS2 

NOTl 

N3T1SV 

NOO 
NODE 

NOl 

NOIF 

NR 

NRN2 

nbplc 

ni 
n? 


CONSIDERATION.  P2 

SAME  AS  EYEFLG  IN  SUBROUTINE  PROCII.  P2 

INCtMA(GI,GJ)>0  MEANS  THERE  EXISTS  A  CONNECTION  FROM  GATE  <>2 
(OR  FX.  VAR.)  GI  TO  GATE  GJ.  INC $MX(GIf 3 J  1  =  0  IF  NOT.  &2 
LISTS  FOR  EACH  CORRESPONDING  ENTRY  OF  F$l ,  HOW  MANY  INPUTSP2 
HAVE  A  »i«  IN  THE  POSITION  INDICATED  BY  F$l.  02 

IPATH(GI)=*l  MEANS  GATE  GI  IS  ON  A  PATH  FROM  A  CERTAIN  GATEP2 


EX.  VAR. 


EX.  VAR.  ARE  ALSO 


IN  LEVEL  J  OF 


TO  AN  OUTPJT  GATE.   OTHERWISE  IPATH(GI)  *  0. 

IPRED(I,GJ)  GIVES  THE  NAME  OF  THE  I-TH  GATE  OR 

A  LIST  OF  GATES  AND  EX.  VAR.  FEEDING  GJ. 

ISUCC(I,GJI  GIVES  THE  NAME  OF  THE  I-TH  GATE  FED  BY  GJ. 

SAME  AS  JAYFLG  IN  SUBROUTINE  PROCII. 

A  FLAG  INDICATING  IF  ANY  ERROR  COMPENSATION  HAS  BEEN 

PERFORMED. 

A  FLAG  INDICATING  IF  ANY  PRIMARY  0-ERROR-COORDINATES  HAS 

REEN  COMPENSATED. 

SAME  AS  KEIFLG  IN  PROCII. 

NJMBER  OF  LEVELS  IN  THE  NETWORK  INOTE 

ASSIGNED  LEVELS  JUST  LIKE  GATES). 

LGLIST(J)  TELLS  NO.  OF  GATES  AND  EX.  VAR. 

NETWORK. 

NJMBER  OF  PREDECESSORS  FDR  THE  GATE  UNDER 

LIPREDIGI)  TELLS  NO.  OF  IMMEDIATE  PREDECESSORS  OF  GATE 

ORDERED  LIST  OF  CONNECTIRLE  INPUTS  TO  GCO.   ORDERED  BY 

DECREASING  NO.  OF  0«S  IN  GCO  COVERED. 

ORDERED  LIST  OF  GATES  AND  EX.  VAR.  WHICH  ORIGINALLY  FED 

GCO  AND  WHICH  HAVE  NOT  YET  BEEN  DISCONNECTED.   ORDERED  BY 

DECREASING  NO.  OF  ESSENTIAL  1»S. 

LISUCC(GI)    TELLS    NO.    OF    IMMEDIATE    SUCCESSORS    OF    GATE    (OR 

EX.    VAR.)    51. 

UPPER  LIMIT  OF  THE  NJMBER  OF  ELEMENTS  IN  SET  S2. 

FOR  GATE  GI,  LPOTAB(GI)  POINTS  TO  LAST  ROW  OF  POTAB 

CONCERNING  GI. 

NUMBER  OF  NETWORK  OUTPUT  GATES. 

NJMBER  OF  EXTERNAL  VARIABLES  (OR  INPUT  FNC.l  AVAILABLE. 

FOP  ERROR  COMPENSATION  PROGRAMS.   IF  MORE  THAN  NEPMAX 

FRROR  POSITIONS  OCCUR  WHEN  A  PARTICULAR  GATE  IS  REMOVED, 

PROGRAM    SKIPS    ATTEMPT    to    COMPENSATE    FOR    THAT    GATE'S 

REMOVAL.   VALJE  CAN  BE  SPECIFIED  BY  USER,  OTHERWISE  EQUAL 

TO  ONE  HALF  OF  N2  BY  DEFAULT. 

SUM  OF  N  PLUS  M 

SUM  OF  NM  PLUS  1. 

PRODUCT  OF  N  AND  N2. 

NJNBER  OF  ELEMENTS  IN 

ELEMENTS 

ELEMENTS 


OF 
OF 


IN 

IN 


SET 
SET 
SET 


ELEMENTS 
ELEMENTS 
ELEMENTS 


IN 
IN 
IN 


SET 
SET 
SET 


NUMBER 

NUMBER 

RPLCF. 

NUMBER  OF 

NJMBER  OF 

NUMBER  OF 

RPLCF. 

NJMBER  OF  ACTIVE  ELEMENTS 

NUMBER  OF  ACTIVE  ELEMENTS 

NJMBER  OF  ACTIVE  ELEMFNTS 

NUMBER  OF  ACTIVE  ELEMENTS 

SJM  OF  N  PLUS  R. 

PRODUCT  OF  NR  AND  N2 . 

NRPLC(I)  STORES  THE  NUMBER 


ENTERING  SUBROUTINE 


S. 
SI. 

SI  BEFORE 

S2. 

Tl. 

Tl  BEFORE  ENTERING  SUBROUTINE 

IN  ARRAY  IDXO. 
IN  ARRAY  IDXOE. 
IN  ARRAY  IDX1. 
IN  ARRAY  IDX1E. 


OF  ELEMENTS  IN 


SUM  OF 
NJMBER 


N  PLUS  1. 
OF  OIFFERENT 


INPUT  COMBINATIONS  TO  BE  CONSIDERED 


P2 
IN»2 
P2 
P2 
»2 
P2 
P2 
P2 
»2 
»2 
P2 
P2 
P2 
02 
CONSIDERATION.  P? 
GI.P2 
P2 
t>2 
»2 
P2 
»2 
P2 
»2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
»2 
P2 
02 
02 
02 
PZ 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
02 


RPLC(I,*| 
FOR  I-lfZ. 


03700 

03  800 

03930 

04000 

04100 

04230 

04330 

04433 

04500 

04630 

04700 

04830 

04903 

05030 

05133 

05230 

05333 

05430 

05533 

05600 

05733 

05803 

05900 

06000 

06100 

06200 

06330 

06400 

06530 

06600 

06700 

06833 

06930 

07000 

07130 

07230 

07300 

07400 

07530 

07600 

07733 

07830 

07930 

08030 

08100 

08230 

08300 

08400 

08500 

08600 

08700 

08833 

08900 

09003 

09130 

09200 

09300 

09400 

09500 

09630 

09730 


origin 


c 

c 

r 

c 

c 

^ 

c 
c 
c 
c 
c 
c 
c 
c 
r. 
c 
c 
c 
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PCD: 


POINTS 

point: 

POIN^L' 

POINTR: 

P0T»3 


PPOTA9: 
R 
RPLC 


RSCONN: 
RTCONN: 

S: 

SETS: 
SETSl: 
SETS2 
SETT1 

STS: 

SUC$MX: 

SUMP: 
SUMS2: 

T: 

TIME; 

JNAMEJ 

VFSUBH 

VFS1: 


(USUALLY  2 
ORIGTN(GI ) 

0RIGIN(GI)O  MEANS  GI 
PKlt-1  CONSECUTIVELY 
EVERY  GATE  (F3R  EVERY 
PS(l,N2)  F3R  FIRST  EX 
SECOND   EX  var;    ...    ; 


TO  THE  POWER  N). 

1  MEANS  GI  ORIGINALLY  CONNECTED  TO  GCO. 
DID  NOT  FEED  GCO  ORIGINALLY. 
LISTS  OUTPUTS  OF  EVERY  EX.  VAR.  AND 
INPUT  COMBINATION):  P»(L,ll«...t 
VAR;  Pt(l,N2«-L),...,PS(l,2*N2)  FOR 
Pi(  1,N*N2*1),-..,  P$(l,N*N2*N2)  FOR 


FIRST  GATE;  ETC.   PA(2,-)  IS  USED  AS  WOR<  SPACE  FOP 

CALCULATIONS  ASSOCIATED  WITH  P$ll,-I. 

FOR  ERROR  :3MPENSATI0N  PROCEDURES.   PCO  IS  THE  GATE 

PEN3VED  FROM  ORIGINAL  NETWORK  TO  OBTAIN  CURRENT  ALTERED 

NETWORK. 

NOT  USED. 

POINTS  TO 

POINTS  Tp 

POINTS  TO 

POSSIBLE 


LAST  ELEMENT 

LAST  ELEMENT 

LAST  ELEMENT 

OUTPUT  TABLE. 


IN  LISTC. 
IN  LISTL. 

IN  RNECl  (IN  SUBROUTINE  SUBSTI ) 
HOLDS  INFORMATION  ABOUT  ALL 


P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
»2 
P2 
>2 
c>2 

P2 
P2 
P2 
P2 
P2 
»2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
»2 
»2 
P2 
P2 
P2 


COMBINATIONS  OF  CONNECTIONS  TO  FORM  NEW  (AND  HOPEFULLY 

USEFUL)  FUNCTIONS. 

FOR  GA^E  GI,  PPOTAB(GI)  POINTS  TO  FIRST  OF  A  SEQUENCE  OF 

ROWS  OF  P3TAB  CONCERNING  GI . 

NUMBER  OF  GATES  IN  THE  NETWORK  (EXCLUDES  EX  VAR,  ALSO 

NOTE  SOME  OF  R  GATES  MAY  BE  ISOLATED). 

RPLC(l,*)  STORES  THE  SELECTED  GATE'S  IP  SATES  WHICH  HAVE 

ERROR-COORDINATES  OF  WEIGHT  2  OR  ABOVE. 
RPL:(2,*>  STORES  THE  SELECTED  GATE'S  IP  SATES  WHICH  HAVE 

AT  LEAST  ONE  ERROR-COORDINATE  OF  WEIGHT  1. 
LIST  OF  CONNECTIONS  ADDED  TO  A  NETWORK  (IN  CODED  FORM). 
LIST  OF  CONNECTIONS  REMOVED  FROM  A  NETWORK  (CODED  FORM). 
NO.  OF  CONNECTIONS  ADDED  TO  A  NETWORK.   POINTS  TO  LAST 
ENTRY  IN  RS^OMN 

SET  S  CONSISTING  OF  INPUTS  OF  THE  GATE  UNDER  CONSIDERATIONS 
WHISH  ARE  TO  BE  REPLACEO  IF  POSSIBLE.  P2 

SET  si  CONSISTING  OF  ELEMENTS  OF  SET  S  WHICH  CAN  BE        P2 
REPLACED  BY  ELEMENTS  IN  SET  S2.  P2 

SET  S2  CONSISTING  OF  FUNCTIONS  WHICH  ARE  CANDIDATES  FOR    P2 
REPLACING  ELEMENTS  IN  SET  S.  P2 

SET  Tl  CONSISTING  OF  ESSENTIAL  ONES  COVERED  BY  ELEMENTS  INP2 

SET  SI.    P2 
STARTING  ELEMENT  OF  SET  S.  P2 

SUC$MX(GI,GJ)>0  MEANS  GATE  GJ  IS  A  SUCCESSOR  OF  GATE  GI.   »2 
SUCiMXf GI,3J)«0  IF  NOT.  P2 

SUN  OF  ALL  ACTIVE  INPUTS  OF  THE  GATE  UNDER  CONSIDERATION.  P2 
SUM  OF  ALL  ACTIVE  ELEMENTS  OF  SET  S2.  P2 

NUMBER  OF  CONNECTIONS  REMOVED  FROM  A  NETWORK.   POINTS  TO   P2 
LAST  ENTRY  IN  RTCONN.  °2 

USED  TO  STORE  AMOUNT  OF  ELAPSED  COMPUTATION  TIME.  P2 

MNEMONIC  NAMES  FOR  EXTERNAL  VARIABLES  AND  GATES.  P2 

POINTS  TO  LAST  ELEMENT  IN  VF$1.  P2 

SIMILAR  TO  F$l,  EXCEPT  THIS  LISTS  JUST  COMPONENT  P0SITI0NSP2 
(OF  O'S  IN  CSPF  VECTOR  OF  GCO)  COVERED  ONLY  BY  REMAINING  P2 
CONNECTED  INPUTS  TO  GCO. 


COMMON 

COMMON 

1  , 

2  , 

3  , 

COMMON 


ORIGINALLY 


NEPMAX 
N 

NM 

LEVM 

ISJCC(*0,t3) 


M 

N2 

KFLAG 

NRN2 

LISUCC(40) 


A 

Nl 

JFLAG 

NMl 

IPREDI 40,*0) 


B 

NR 

COST 

NN2 

LIPREDUO) 


P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
>2 
P2 


1    t 

2      . 

COMMON 

COMMON! 


INCSMXC 
GLEVELI 

T 

IFLAG 


1  ,FSUB1 

2  ,LISTL(40) 

3  .POINTR 
C3MMON    P3TA9(2 

1  ,PPLC(2,40) 

2  ,TDX1F(32) 

3  .SETSK40) 

4  ,STS 

5  ,LIP 

6  f  MOO 

7  ,$LTH 
C3MM3N 

DIMENSION  CNTLIS 
DATA  <0UNT5  /0/» 

990  SEAD(5,1000,END= 

NEPMAX     IS    THE    MA 

000    Fr»RMAT(20A4/5I4, 

<eyx:=o 

tf(ucne.ublank) 
call  page 
call  linf(io) 
k0unt5=k0unt5+1 

PRINT    2t    K0UNT5 
2    eORMAT(20X,«*** 
CALL    LINE<4) 
POINT    1005,    UHEA 
005    F0RMAT<25X,2OA4) 
CALL    LlNE<4| 
PRINT    10,    N,M,A, 
10    F0PMAT(30X,'NUMR 

1  SOXt'MUMR 

2  30Xt«C0ST 

3  47X, 
CALL  LINEtl) 
IFIKEYXC.NE.O)  G 
PR!NT  21 

21  FORMAT(1HO,29X,» 

GO  TO  30 
25  CONTINUE 
PRINT  28 
28  =  0RMATUH0,29X,« 

1  X,  Y  —  •  ) 
30  CONTINUE 

CALL    LINE(5) 
>.***    SET    jp    EXTERNAL 
N2=2**N 

IFINEPMAX.EO.OJN 
H=N*N2 
J  =  N2 
L  =    I 
1  =  0 

DO    1011    11=1, N 
J  =  J/2 
L  =  L*2 
SN  =    1 

DO    1010   LL=1,L 
SN=-SN 


40, VO),    SUC$MX(40,4 
40)  ,    LGLIST(40) 

,  RTCONN(IOO) 

,POINTA 

,INPTCV(32I 

,POINTL 

,VFS1<32) 
00,42),PPOTA8(40) 

,IDX0(32) 

,SUMP(32) 

,MOSl 

♦SUMS2(32) 

,N00E 

,NOl 

,$PW 

N0T1SV 
(14%),UGATE(40),UHE 

UBLANK/«     •/ 
500)  UHEAD,  N,  M,  R 
XIMJM  ALLOWABLE  NUM 
A4,I4) 

keyx:=i 


OPTIMAL  NOR  NETWORK 

D 


01,  P$<2,1280) 

,  HL!ST(40,40) 

,  S 

,ESS1SI40I 

,LISTC(40> 

,0RIGIN(40I 

,VF$UB1 

,LP0TAB<40) 

,I0X0E(32) 

,SETT1(32) 

,SETS(40> 

,SETS2C200» 

,KEYA 

,N01E 

,$NOE 
,N0S1SV 
AD(20I 


,  UNAMEI40) 
♦  TIME 

,  RSC0NNC100) 
,F$1C32I 
,POINTC 
•IPATHC40) 
,GSMALL<40,32 
,NRPLCI2I 
,10X1(32) 
,N0T1 
,NOS 
,N0S2 
,KEY8 
,$GT 
,GI 
,LMTS2 


UC,  NEPMAX 


♦  A,  B,  UC,  NEPMAX 
BER  OF  ERROR  POSITIONS 


***• ,50X, 'PROBLEM  N0.=  »,I4  ) 


ER  OF  VARIABLES  =  •, 

FR  OF  FJNCHONS  »•, 

COEFFICIENT  A   =•, 


•R 


— , 


14  // 
14  // 
14// 
14) 


0  TO  25 

— -  UNCOMPLEMENTED 


VARIABLES   X •) 


BOTH  COMPLEMENTED  AND  UNCOMPLEMENTED  VARIABLE 

VARIABLES  ***** 
EPHAX  =  N2/2 


P2 
P2 
P2 
R2 
P2 
R2 

)P2 
P2 
P2 
P2 
P2 
P2 
»2 
P2 
t>2 
R2 
P2 
»2 
P2 
>2 
?2 
P2 
R2 
P2 
»2 
P2 
'2 
P2 
P2 
R2 
^2 
P2 
P2 
'2 
P2 
*2 
P2 
R2 
■>! 
?2 
P2 
P2 
R2 
P2 

S'2 
P2 
P2 
P2 
P2 
'2 
P2 
>2 
P2 
02 
P2 
»2 
P2 
P2 
P2 
P2 
»2 


15900 
16030 
16100 
16200 
16333 
16400 
16500 
16600 
16700 
16830 
16903 
17030 
17133 
17230 
17330 
17430 
17500 
17633 
17730 
17800 
17930 
IR033 
18133 
18233 
18330 
18403 
18500 
18600 
18703 
18833 
18933 
19033 
19100 
19230 
19333 
19400 
19500 
19600 
19700 
19833 
19900 
20000 
20130 
20200 
20333 
20403 
20500 
20600 
20700 
20800 
20900 
21033 
21130 
21233 
21333 
21430 
21530 
21600 
21730 
21833 
21930 


V«(l*SNI/2 

00  1009  JJ«l,J 

P»«  l.II-V 

IF(KEYXC.NE.0)P$<1,I*H»-1-V 
1009    CONTINUE 
1310   CONTINUE 
1011  CONTINUE 

IF(KFYXC.NE.O)  N»N*N 

N1=«N  +  1 

NM«N*M 

NN2»N*N2*1 
NR«N** 
NRN2«MR*N2 

CML    OUTPUTUNC$MX,KEYXCI 
;*****    rpo    is    NETWORK    INFORMATION 
*EAD    1001,  CNTLIS 

1001    F0RMAM16I5) 

DO    1115   GI-ltNP 

D")    1115    GJ«1,NR 

1115    INC*MX(GI,GJ)=0 

00    1120    T«l,144 

ITEM=CNTLIS(II 
IF(ITEM.EQ.O)    GO    TO    1119 

GI«ITEM/100 

GJ»ITEM-100*GI 

INC*MX(GI,3J1»1 

GO    T?    1120 
C3ST*A*R*B*( I-l» 

GO  TO  1130 
COMTI^UE 
CONTINUE 
CALL  SUBNET 
CALL  RVALUE 
CALL  LINE(4) 
P*INT  1140,  C3ST 
F0RM&T(20X,«  ORIGINAL  NETWORK 
C«LL  LINEC4) 
CALL  TRUTH(PS,1) 
CALL  LINE!*) 
CALL  CKTfINC$MX,GLEVEL) 


AND  SET  UP  INCSMX  ***** 


1119 

1120 
1130 


1140 


COST«»,  151 


C*****  ENT»Y 
S  «  0 


REDUNDANCY  CHECK  ***** 


C**** 


T  «  0 

CALL  UNNECE 
GATES  »  M 
C  =  0 

DO  4  3!  «   1,NR 
c   ■   :    ♦  LISJCC(GI) 
IF(GI.LE.NM)G3TD4 

IF(LISUCC(GI).GT.0»GATES*GATES*1 
CONTINUE 

OLDCST    »    A*GATES    «■    B*(CI 
T-0 
S-0 

INITIALIZE  TIMER  TO  10  MINUTES 
CALL  STIMEZ<60000) 
TIME  =  KTIMEZ(O) 
PROCEDURE   PPOCI 


P2  2203c 

p2  221DC 

P2  2220C 

0  2  2233C 

PI  22*33 

9  2  225JC 

P?  2263c' 

P2  22730 

P2  2283: 

»2  22950 

P2  230JO 

02  231D0I 

P2  23230 

»2  23330 

02  23433! 

P2  23530 

0  2  23600 

P2  2  3  700 

'2  23800 

02  239D: 

P2  2*030 

'2  2*130 

P2  2*230 

P2  24330 

P2  24400 

P2  24533 

R2  24600 

P2  24730 

P2  24830 

P2  24933 

P2  25030 

P2  25100 

>2  25233 

P2  25333 

P2  25430 

=>2  25500 

P2  25630 

02  25700 

P2  25800 

P2  25930 

P2  26O00 

»2  26100 

P2  26230 

P2  26300 

»2  26430 

P2  26500 

02  26600 

P2  267O0 

02  26800 

02  26900 

P2  27O30 

P2  27130 

P2  27230 

02  27333 

P2  27400 

»2  27530 

P2  27630 

«>2  27700 

02  27830 

02  27930 

P2  28000 


916 
915 


36 


105 


37 


320 


500 


CALL    "ROC! 

CALL    FOR    ELAPSED   THE 

TIME  =  KTIMEZ(O)  -  TIME 

CALL  _INE<4) 

PRINT  3915 

FT»M*T(20X,«TIME  ELAPSED  »»,I8,«   CENTISECONDS ■ ) 

F3RMAM20X,  'NETWORK    DERIVED    BY    PROCI     •) 

PRINT    3016,MME 

CALL    LINE14) 

CALL    TRUTH(P$,i) 

CALL    I.INEC4I 

CALL    CKT(TNC$MX,GLE\/EL) 

GATES  *  M 

r,   =  0 

00  36  GI  *  1,NR 

C  *  C  ♦  LISJCC(GI) 

IF(GI.LE.NM)  SO  TH  36 

IF(LISUCC(GI).GT.O)  GATES  »  GATES  «■  1 

CONTINUE 

NEWST    =    A*GATES    ♦    8*C 

IF(NErfCST.LT.0LDCST)G3  TO  37 

PRINT  105 

F3RMAM1H    ,10X,»N0    REDUNDANCY    FOUND.*) 

GO    TO    qqo 

CALL    LINE(3) 

PRINT  320,NEWCST 

F0RMAT(9X,»*  A  NETWORK  DERIVED  BY  PROCI  «/9X,«  C3ST  = 

30  Tt  990 

STOo 

END 


15, 


P2  28100 
32  28230 
P2  28300 
R2  28433 
P2  28500 
P2  28600 
P2  28730 
»2  28800 
P2  28930 
P2  290D0 
P2  29130 
P2  29200 
P2  29333 
P2  29400 
P2  29530 
°2  29600 
P2  29700 
°2  29830 
P2  29930 
P2  30000 
t»2  30100 
»2  30200 
f>2  30330 
»2  30400 
P2  30500 
»?  30630 
P2  30730 
>Z  33830 
P2  30930 
P2  31300 


SUBROUTINE  SUBNET 

DEFINITIONS  OF  »C3*13V»  VARIABLES  CAN  BE  FOUND  IN  MAIN  PROGRAM. 


IMPLICI 

COMMON 
COMMON 
I 

2  , 

3  , 
COMMON 

1  » 

2  , 
COMMON 
COMMON 

1  tF 

2  ,L 


3MM3N 

,R 

tl 

tS 

,S 

.L 

iM 

*$ 

C3MM3* 

OIMENSI 

ENTRY  P 


T  i*jt 

NEPMA 

N 

NM 

LEV 
ISO 
INC 
OLE 

T 

IFL 
$UBl 
ISTL( 
OINTR 

P3T 

pl:<2 

DX1E( 

ETS1( 

TS 

TP 

00 

LT4 


EGER*4<A-T,V-Z,$),  REAL<U) 
X 


M 

CC<40,<» 
$MX<40, 
VELC40) 

AG 

40) 

AB(200, 

,40) 

321 

40) 


ON  X(40),LX( 
RESUC 


t  M 

,  N2 

,  KFLAG 

,  NRN2 
3)  ,  LISU:C(40) 
VO),  SUC$MX(40,40) 

,  LGLIST(40) 

,  RTCONN(IOO) 

,POINTA 

,INPTCV<32) 

,POINTL 

,VF$l(32) 
42),PP0TAB(40) 

,10X0(32) 

,SUMP(32) 

,N0S1 

,SUMS2(32) 

,NOOE 

,N01 

,$PW 

N0T1SV         , 
t0,2),0UT0(40) 


»  A 

t  Nl 

,  JFLAG 

,  NM1 

,  IPRED(40,40) 

,  P$C2,1280) 

,  HLIST(40,40) 

t  S 

,ESSIS(40) 

,LISTC(40) 

,0RIGIN<40) 

,VF$UR1 

,LP0TAB<40) 

,IDX0E(32) 

,SETTl(32) 

,SETS(40) 

,SETS2(200) 

,KEYA 

,N01E 

,$NOE 

N0S1SV 


t  B 

,  NR 

,  COST 

,  NN2 

,  LIPREDC40) 

,  UNAME140) 

,  TIME 

,  RSCONNdOO 

,FS1(32) 

,POINTC 

,IPATH(40) 

,GSMALLf 40,3 

,NRPLC(2) 

,10X1(32) 

,NOTl 

,NOS 

,N0S2 

,KEYB 

,iGT 

,G$$$$$ 

LMTS2 


»2 

P2 
P2 
>2 
P2 
P2 
=>2 
P2 
>2 
P2 
P2 
P2 
P2 

)  P2 
a2 
P2 
P2 

2)P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
P2 
»2 


31100 
31200 
31300 
31430 
31500 
31600 
31700 
31830 
31930 
32000 
32U0 
32230 
32300 
32433 
32530 
32630 
32700 
32800 
32930 
33330 
33130 
33230 
33330 
33430 
33533 
33600 
33730 
33800 
33900 


1  CONTINUE 

33  10  GI »1 ,NR 
LS-0 
LP«0 

03  5  GJ-i,NR 
IF( INC$HX(GI,GJI.EQ.OI  GO  TO  3 
LS«LS*1 

ISUCCILS,GI)«GJ 
GO    TO    5 
3        IFUNCtNXf 6JtGXI.EQ.0l    GO   TO    5 

IPREDCLP.GI )«GJ 
5       CONTINUE 

LIS'JCC<GI)»LS 
LIP«ED(GI)»LP 
10    CONHMUE 

ENTRY    SUCCE.S 
03    21    GI=1»NR 
DO    21    GJ»KNR 
SUC$*X<GI,GJ)«0 

21  CONTINUE 

00    30    GJ«N1,NR 
00    22    GS»l,N« 
X(GS)«0 

22  CONTINUE 
XJGJ)*1 
L0»1 

LX(1,1)»GJ 
V«l 

23  CONTINUE 
V=l-V 
SW0»1«-V 
SW1»2-V 
L1»0 

00    28    LL*1,L0 
GH»LX(LLf SWO) 
L!P»LIPREO(GM) 
IF(LIP.EO.O)    GO    T3    28 
00    26    LP«1,LIP 
GP«IPREO(LP,GM) 
IF(X<Gi>).GT.O»    3D    TO    26 
SUC$MX(GP,GJ)«i 
L1-LU1 
LX(Ll,SWl)xGP 
XfGP»»l 
CONTINUE 
CONTINUE 

IFCL1.E0.0)    GO    TO    30 
L0»L1 
GO    T3    23 
CONTINUE 

ENTRf    LEVEL 
DO    40    GJ»1,NR 
3UT0(GJ)»LISUCC(GJ) 
GLEVEL<GJ)»-1 
40      CONTINUE 

LEV»0 
45    LEV»LEV*1 
G=0 


26 
28 


30 


P2 
P2 
*2 
P2 
»2 
P2 
»2 
P2 


340 

341( 

342J 

3*! 

3450 
3*6)i 
3470i 

=>2  3*{ 

P2  34< 

P2  350 

>2  35101 

»2  35231 

P2  35301 

»2  35*0! 

»2  3550( 

P2  3563( 

>2  3573! 

P2  3580'. 

P2  3  5901' 

9  2  3600C 

»2  3S10C 

»2  3623! 

»2  3630C 

»2  36*0( 

f>2  3653C 

P2  3660C 
3  670: 
3680C 
369O0 
37300 
3713C 

P2  37230 

»2  37330 

P2  37*00 

P2  3  7533 

P2  37630 

'2  37730 

P2  37830 

P2  37930 

P2  38000 

P2  39130 

P2  38200 

P2  38300 

P2  38400 

»2  38500 

P2  38600 

P2  38700 

P2  38830 

P2  38930 

P2  39O30 

P2  39100 

t>2  39230 

P2  39300 

P2  39*00 

P2  39533 

P2  39630 

P2  39700 

P2  398)0 

P2  39930 

P2  40000 


P2 
P2 
»2 
P2 
»2 


DO  50  GJ=1,NP  ?2    40100 

IF(3UTO(SJ).3T.O  .DR.  GLEVELI GJ) .GT .0 >  GO  TO  50  P2  40230 

G=G«-1  P2  43333 

HLIST(G,LEV)=GJ  f>2  40400 

31FVEL(GJ)=LFV  P2  40530 

50  C3NTIMUE  P2  40600 

IF(G.FO.O)  RETURN  P2  40700 

L3LIST(LFV/)=G  P2  40800 

OH  60  GG=1,G  »?  40930 

3J*HLIST<G3,LEVl  '2  41030 

LIP=LT°RED(GJ )  P2  41100 

IF(LIP.EO.O)  GO  TO  60  P2  41200 

00  55  LP»1,LI«>  P2  41330 

GP=IPREO(Ll>,GJ)  »2  41430 

nijT0(GPl  =  3UT0(GP»-l  P2  41500 

55   CONTINUE  P2  41600 

60  C3NTINUE  ?2    41730 

LEVMxLEV  P2  41800 

33  TT  45  P2  41930 

P2  42000 

»2  42100 

f>2    42230 

ENTRY  PVALJE  »2  42330 

00  100  l=NN2,NRN2  P2  42400 

P$I1,LI=1  P2  42530 

100  CONTINUE  02  42633 

P2  42730 

LEV=LEVM  P2  42830 

110  CONTINUE  t>2  42930 

L3=L3LIST(LEV)  P2  43000 

00  130  L=1,L0  P2  43100 

GI»HLIST(L,LEV)  P2  43200 

LIS=LISUCC(GI)  P2  43300 

BSGI=(GI-1!*N2  P2  43400 

LJTH=0  P2  43500 

33  115  JTH*1,N2  02    43600 

IF(P$U,BSGI*JTHI.EQ.O)  GO  TO  115  P2  43700 

LJT*=LJTH*1  P2  43830 

X(LJTH)=JTH  P2  43930 

115   CONTINUE  °2  44000 

IF(LJTH.EQ.O)  GO  TO  130  f>2  44100 

03  125  l.S*i,LIS  02    44230 

^S=ISUCC(LS,G!)  P2  44330 

BSG$=(GS-ll*N2  P2  44400 

00  120  LJ=ltLJTH  °2  44500 

PM1,X(LJ»*BSGS)  =  0  »2  44600 

120    CONTINUE  P2  44700 

125   CONTINUE  P2  44830 

130  CONTINUE  I>2  44930 

LEV=LEV-1  P2  45330 

IMLEV.GE.2)  GO  TO  110  P2  45130 

RFTURN  P2  45200 

P2  45330 

P2  45400 

t>2  45530 

ENTRY  RSTRCT(KEYRST»  p2  45630 

KEYRST*0  p2  45700 

IF(LFVM.GT.L«iAX»GO  TO  160  p2  45800 

00  150  GI=Nl,NR  p?  45900 

IF(LIPRE0(GII.GT.FANIN)G0  TO  160  p2  46000 

!F(LISUCCCG!).GT.F^N0UTJG0  TO  160  P2  46100 


150  CONTINUE 

RETURN 
160  <EYRST"«l 
RETURN 

<rNTHY  UNNECE 
C**»**  THIS  FNTRf  DISCONNECT  ALL  GATES  FROM  WHICH  THERE  IS  NO  PATH 
C.  TO  3JTPUT  GATES  ***** 

TS  =  T 

DO  209  GI»NM1,NR 
IFIGLEVELC6II.EQ.il  GO  TO  207 
DO  205  GJ«N1,NM 
IF(Sl>C$MX(G?,GJ).GT.O)  GO  TO  209 

205  CDNHMUE 

£*****  51  !S  REDUND4NT  ***** 
207  CONTINUE 

LIP»LIPRED(GII 
IFCLIP.EQ.O)  GO  TO  206 
00  203  LI»i,LIP 
GK»IPRED(LI,GII 
IF(INC$MX(GK,GI).LE.O)  GO  TO  203 
T=T*1 

*TCDNN(T)=100*GK-»-3I 
IN*$MX(G<,G! )=0 

203  CONTINUE 

206  LIS=LISUCC(GII 
IF(LIS.EO.O)  GO  T3  209 
DO  234  LI»1,LIS 

GK*ISUCC(LI,GI) 
IF(INC$MX(GI,GK).LE.O)  GO  TO  204 
T»T«-1 

RTCONN(^I«100*GU5K 
INC$MX(GI,GK )»0 

204  CONTINUE 
209  CONTINUE 

IF(T.GT.TS)    GO    TO    1 

RFTU*N 

END 


*2  *52 

P2  *63 

»2  4S4 

P2  *65 

»2  466 


n2    *71 
0  2    *7J 


t>2    W9' 


c 
c 

SUBROUTINE  3UTPUT(MA"HUX, ARRAY) 

»2 
P2 

»2 
P2 
02 

DEFINITIONS  OF  'COMMOh 

l«  VARIABLES  CAN  BE  FOUND  IN  MAIN  PROGRAM. 

u 

IMPLICIT  INTEGER*4(A-T 

,V-Z,$),  REAL(U) 

CPMMON  NEPNAX 

P2 

COMMON    N 

,  M 

*  A 

t  B 

P2 

1      ,    R 

t  N2 

,  Nl 

,  NR 

P2 

2      t    NM 

,  KFLAG 

.  JFLAG 

,  COST 

t>2 

3      ,    LEV* 

,  NPN2 

,  NMl 

,  NN2 

P2 

COMMON    ISJCCU0,O) 

,  LISUCC(40) 

,  IPRED(40,40) 

,  LIPREDC40) 

P2 

1      ,    !N:$MX(40,^0J 

,  SUC*MX(40,401 

1,  P*(2,1280) 

•  UNAMEC40) 

P2 

2      ,    GLEVFK40) 

*  LGLIST(40) 

,  HLIST(40,40I 

,  TIME 

92 

COMMON    T 

♦  RTCONN(IOO) 

,  s 

,  RSCONN(IOO) 

»2 

COMMON    IFLA3 

, POINT! 

,ESSIS(40) 

,FS1(32) 

»2 

1      ,F$URl 

,INPTCV(32) 

,LISTC(40) 

,P01NTC 

P2 

2      ,LISTL(40) 

♦  POINTL 

,0RIGIN(40) 

,IPATH(40) 

P2 

3      ,<>OINTR 

,VFS1(32) 

,VF$UB1 

,GSMALL(40,32)P2 

COMMON    P0TA8(200,42) 

,PPOTAB(40) 

,LP0TAB(40> 

,NRPLC(2) 

R2 

1      ,RPLC(2,40> 

,10X0(32) 

, IDX3EI32) 

,10X1(32) 

P2 

2      ,I0X1E(32) 

,SUMP(32) 

.SETTK32) 

,N0T1 

»2 

3      .SETSK40I 

♦  NOSl 

,SETS(40) 

,NOS 

J>2 

,STS 

♦  LIP 

♦  Nno 

.$l_T4 


:o*mon 


,SUMS2<32) 

,NOOE 
,N01 
,SPW 
NOT1SV 


,SETS2<200) 
,KEYA 

,NOiE 
,$N3E 
♦NOSISV 


3Mc\lSION  UX(5),  UY{5),  UGI40),  UFC40),  ARRAYI40), 
DIMENSION  *ATRIX(43,40) 


,NOS2 

♦  KEYB 
,$GT 

•  61 
»LMTS2 
ARRAY2<2,1280) 


DAT! 
DA^A 
OAT  A 


jx  n 

UY/» 
JF     /• 
• 

i 

t 


Xl» 
'1% 

9.  ,t 
17%» 
25'  ♦  • 
33%« 


X2« 

Y2«  ,• 

1       2*  ,  • 

1    10%» 

18%» 

26',  • 

34*  ,« 


Y3% 


27% 


*    X4%»    X5»/ 
Y4%»    Y5«/ 
1       4%  •       5%  • 
12%«    13%» 


6%  • 
14%  • 


7', 
15% 
23% 


30%»    31 
38%«    39 


8« 
16« 
24* 
32* 
40V 


DATA  GMAX/40/ 


KEYX:  =  ARRAY(1  ) 
IF(KEYXC.NE.O)  GO  TO  50 
DO  I  31=1, N 
UNA^E(GI)=UX(GI  ) 

1  COMTiMUE 
GO    T3    100 

50    C3NMNUE 
L  =  N/2 
03    4    31=1, L 

UNA*E«GI)=JX(  GI  ) 
UNAHECGI+Ll=UY(GI) 

4  CONTINUE 
00  CONTINUE 

03  2  OI«Ni,GMAX 
UNAME(GI)»JF(GI-M1 

2  CONTINUE 
RETURN) 

ENTRY  LINECLI 
03  6  LL»l,L 
PRINT  5 

5  FORMATdH  ) 

6  CONTINUE 
RETURN! 

ENTRY  PAGE 
PRINT  7 

7  FORMAT(lHl) 
RETURN 

ENTRY  CKTCMATRIX, ARRAY) 
P^TNT  10 
10  F3RMATCIH  ,8X,fGATE  •.  LEVEL%6X,  'FED  BY%*) 
03  20  GJ=N1,NR 
0=0 

DO  15  GI=i,NR 
IF(MATRlXCGItGJ).EQ.O)  GO  TO  15 
G=G  +  1 

UGCG)=UNAHE(GI) 
15   33NTINUE 

IF(G.EQ.O)  GO  TO  18 

PRIMF  17,  JNAME(GJ) ,APRAY(GJ),(UG(GG),GG»1,G) 

17  f=3RMAT<lH0,  9X,  A3,  5X,  %*%  I  2  ,  %*%  5X  ,35  <    A3)) 
GO  TO  20 

18  P*I\JT  19,  UNAME(GJ)  ,ARRAY(GJ) 


P2  52130 
P2  52230 
P2  52330 
P2  52430 
«»2  52500 
P2  52600 
P2  52700 
P2  52800 
P2  52933 
P2  53033 
P2  53100 
P2  53230 
P2  53300 
P2  53400 
P2  53500 
P2  53600 
P2  53730 
P2  53830 
P2  53930 
P?  54330 
»2  54130 
t>2  54230 
»2  54330 
P2  54430 
n?.  54500 
P2  54630 
P2  54700 
P2  54830 
P2  54930 
»2  55000 
P2  55130 
P2  55230 
>2  55300 
P?  55430 
PZ  55530 
P2  55630 
P2  55730 
P2  55800 
R2  55930 
P2  56030 
P2  56100 
P2  56200 
P2  56300 
>2  56400 
P2  56530 
P2  56630 
:>2  56700 
P2  56830 
»2  56900 
P2  57030 
P2  57130 
P2  57230 
P2  57330 
P2  57430 
P2  57500 
i>2  57600 
P2  57730 
>2  57800 
P2  57930 
P2  58030 
»2  58130 


19 
20 


35 

36 
37 

38 


40 
41 


F0RMATUH0, 

continue 


9X,A3,5X, 


EMTRy  TRUTH1ARRAY2.J) 

IFU.EQ.2)  30  TO  36 

PRTMT  35 

eOOMmilXt  'TRUM    TABLE'/) 

33    n    38 

PRINT    37 

F3RMMC11X,       'REQUIREMENT    TABLE1) 

CINTINUF 

0"!    40    GI»1,NR 

IL0*(GI-1)*N2*1 

IHI»IL0*N2-1 

PRINT    41,    'JNAME(GI),     ( ARRAY2 < J , I ) , I-ILO, I  HI ) 
CONTINUE 

F0R1ATCIH0,    9X,A3,«     =    »,     32(11, IX)) 
RETURN 
END 


P2  5B2D 

f>2  5833 

»2  58*3. 

P2  5850' 

'2  5850i 

P?  58731 

»2  5883! 

P?  5893( 

P2  5933( 

P2  5913( 

>2  5923C 

P2  5933f 

92  5940C 

P2  5953C 

P2  59S0C 

»2  5970C 

P2  59830 

P2  59900 

P2  60000 

»2  60i: 


SUBROUTINE  PROCI 

OEFI^ITIONS  OF  'COMMON*  VARIABLES  CAN  BE  FOUND  IN  MAIN  PROGRAM. 

A-T,V-Z),    REAL(U) 


1 
2 
3 
( 
1 
2 
3 
4 
5 
6 
7 


IMPLICIT    INTEGER*4( 
:.r»MMON    NEP^AX 
COMMTY  N 

R 

NM 

LEVM 
ISJCC<40,V 
INCSMXC40, 
GLEVEH40) 
COMMON         T 
COMMON  IFLAG 

F$UB1 
LISTH40) 
POINTR 
MON         P0TAB(200, 
RPLC<2,40) 
IDX1EC32) 
SETSK40) 
STS 
LIP 
NOO 
$LTH 
COMMON 
DIMENSION    PSUM(32), 


t  M 

t  N2 

,  KFLAG 

,  NRN2 
31  ,  LISUCCC40 
40),  SUC$MX(40 

,  L5LIST(40 

,  RTCONNUO 

,POINTA 

,INPTCV(32) 

♦POINTL 

,VF$1(32) 
42),PP0TAB(40) 

.IDX0I32) 

,SUMP(32) 

,N0S1 

,SUMS2(32) 

,NOOE 

,NOl 

,$PW 

NOT1SV 
CHNGCPC32),  I 


t  A 
,  Nl 
,  JFLAG 
,  NMl 
)    ,  IPRED(40,40) 
,40),  P$(2,1280> 
)    ,  HLISTC40.40) 
0)   ,  S 

,ESS1S(40) 
,LISTC(40) 
,0RIGIN(40) 
,VF$JB1 
♦LPOTABI40) 
,IDX0E(32) 
,SETTl(32) 
,SETS(40) 
♦SETS2I200) 
,KEYA 
,N01E 
,$NOE 
,NOSlSV 
NDCTR(40),INDEXC32 


,  B 

,  NR 

,  COST 

,  NN2 

,  LIPRED(40) 

,  UNAME(40) 

,  TIME 

,  RSCONN(IOO) 

,F$1(32) 

,P0INTC 

,IPATHC40) 

,GSMALL<40,32 

,NRPLC(2) 

,IDXK32) 

,N0T1 

,NOS 

•  NOS2 

,KEYB 

,«GT 

•GI$$$$ 
,LMTS2 
) 


;*****  THIS  SUBROUTINE  FIND  ALL  SINGLE  REDUNDANT  CONNECTIONS  IN  A  GIVEN 
NETWORK  SPECIFIED  BY  INC$MX  ***** 


1 

CONTINUE 

03  9  TH=NN2,NRN2 

9 

P$(2,TH)«0 

10 

CALL  UNNECE 

LEV»LEVM 

TS«T 

P2 
^2 
92 
P2 
P2 
>2 
^2 
P2 
P2 
P2 
P2 
P2 
P2 
>2 
P2 
»2 
P2 
)P2 
P2 
P2 
»2 
P2 
P2 
P2 
>2 
P2 
P2 
P2 
P2 
P2 
°2 

92 

P2 
*2 
P2 
P2 
»2 
P2 
»2 


INTO  GATE  GJ  ***** 


GO  TO  12 


****  CONSIDER  CONNECTIONS  INTO  GATES  IN  LEVEL  LEV  ***** 

11  LEV=L£V-1 
IF(LEV.LE.O)  GO  TO  90 
l.GL  =  LSl  IST(LEV) 

1.^  =  0 
****  CONSIDER  CONNECTIONS 

12  LG=LG+1 
IFILG.GT.LGL)  GO  TO  11 
GJ=HLIST(LO,LEV) 
IF(LcV.FQ.l.ANO.GJ.ST.NM) 
IF(GJ.I.E.N)  30  TO  12 
KEYR*V=0 

OLFV=LFV 
LIP«LI°PEDCSJ) 
00  15  TH=l,N2 
15  PSUM(TH)=0 

00  19  LI«1,LIP 
GI*If»*ED<LI»GJl 
BSGI*(GT-1)*N2 
00  17  TH=itNJ2 
PSU"l^H»=PSUM(TH)*P${i,BSGH-TH) 
17   CONTINUE 
19  CONTIMUE 

BSGJ=(GJ-1)*N2 

CHNG=0 

OP  2*  TH=1,N2 

IF(P$(1,BSGJ*TH).NE.0»  GO  TO  24 

CHNG=CHNG+1 

CHNSCP(CHNG)=TH 

P$<2|BSGJ*TH)=1 

24  CONTIMUE 
IF(CHNG.EQ.O)  GO  TO  310 
IF(CHNG.F0.N2)  GO  TO  100 
00  25  GR  =  1,NR 

25  INDCTR(GRI=i 
TN0CTUGJ>=2 

32  PLEV=R.LEV-1 
IF(RLEV.E0.0)GO    TO    40 
RLGL=LGLIST(Rl.EV» 

DO    47    RLG=1,RLGL 

****    FIND    CHANGED   C0NP3MENTS    IN    GR    ***** 
3R=HLIST(RLG,RLEV» 
IF(SJC$MX(GJ,GP).t.E.O)    SO    TO    47 
INDCT3(GR)*2 

RLIP=L!PREO(GRI 
BSGR=(GP-1)*N2 

****    NEW    OUTPUT    FUNCTION    OF    GR    ***** 
DO    34   «LI»1,PLIP 
G0=IPRE0(RLI»GR ) 
BSGU=(GQ-l)*N2 
00    33    CHN=I ,CHNG 
TH*CHNGCP(CHN) 
P$I2,BSGR*TH)=P$(  2,BSGR+THj4.p$(INDCTR(GO)fBSGO«-TH| 

33  CONTINUE 

34  CONTINUE 
00  36  CHN=l,CHNG 

TH=CHNGCP(CHN) 
IF(o$(2,8SGR«-TH».EQ.O)  GO  TO  35 


P2  6U33 
'2  64230 
02  64300 
P2  64400 
»2  64530 
P2  64633 
92  64733 
P2  64833 
P2  64933 
P2  65333 
»2  65133 
P2  65233 
P2  65330 
»2  65433 
P2  65533 
P2  65630 
*2  65733 
P2  65833 
P2  65930 
P2  66300 
P2  66100 
»2  66200 
P2  66333 
P2  66433 
02  66533 
»2  66633 
»2  66733 
P2  66833 
P2  66933 
»2  67033 
P2  67103 
P2  67230 
P2  67333 
P2  57433 
P2  67533 
P2  67633 
»2  67733 
P2  67833 
02  67933 
P2  683D3 
»2  68130 
P2  68233 
P2  68333 
»2  68433 
P2  68533 
c>2  68633 
P2  68733 
P2  68833 
P2  69933 
>2  69000 
P2  69103 
P2  69233 
»2  69333 
P2  69433 
P2  69530 
P2  69600 
P2  69733 
»2  69830 
P2  69930 
P2  70000 
»2  70130 


»1(  ?,RSG!»*TH)=0 
00    TD    36 

35  P$t2,BSG«*TH)»l 

36  C1NTHUE 
47    CONTINUE 

SO  T"»  32 
C 
C*****  CHE:<  CHANGED  COMPONENETS  IN  OUTPUT  GATES  ***** 

^o  continue 

CPONE    »    0 
00    41    CHM*1,CHNG 
TH=CHNGCP(CHNI 
00    38    GP=»Nl,NM 
BSGR-(G*-ll*N2 
IF(P$Uf  BSGR*TH).E3.P$(2,  BSGR+THKOR    .  P$(  1  ,BSGR«-TH)  .LT.O  )G0 
CPONE=CPONE«-l 
INDEX(CPONEI=TH 
GO    to    *i 
38         CONTINUE 
41    CDNTIMUE 

IF(CPONE.EO.O)  GO  TD  310 
C****  SELECT  REMOVABLE  CONNECTIONS  TO  GJ  ***** 
LIP'LTPREDtGJ) 
00  290  LP=1,LIP 
GI=IPREO(LP,GJ) 
BSGI=(GI-1)*N2 
00  220  CP*l,CPONE 
TH=!N0EX(CP) 

IF(PSJM(T4).EQ.l  .AND.  P$( L»BSGI*TH ) . EQ. I )  GO  TO  290 
220    CONTINUE 

c****  connection  from  gi  to  gj  is  removable  ***** 

T  =  T*i 

INC$MX(GI,GJ)=0 

KEYRM\/  =  1 

00  230  CHN=ltCHNG 
TH«CHNGCP(CHN) 

PSUM<TH)=PSU*(T-I)-P$<1,BSGH-TH) 
230    CONTINUE 
290  CONTINUE 

IF(KEyRMV.EQ.O)  GO  TO  80 
£****  CHECK  CHANGED  COMPONENTS  ***** 
00  300  CHN=l,CHNG 
TH=CHNGCP(CHNI 

!»=(PSU*(TH).GF.l )  CHNGCP(CHN)»LOO*TH 
CDNTINUE 


TO 


300 


£****•  UPDATE  TRJTH  TABLE  FOR  GATES  FED  BY  GJ 
IF(LEV.LE.l)  GO  TO  S6 

LFV1=LEV-1 
DO  57  RLEV*l,LEVl 
RLGL=LGLIST(RLEV) 
00  56  RLG=1,RLGL 
OR=HLIST(RLG,RLEVI 
IF(SUC$NX(GJ,GR).EQ.O)  GO  TO  56 
BSGR=(GR-11*N2 
00  55  CHN*l,CHNG 
TH=CHNGCP(CHN) 
IFCTM.GT.100)  G  0  TD  54 

PStl,BSGR*TH)=P$(2,BSGR*TH) 
P$<  2.BSG**TH)=0 
GO  TO  55 


***** 


P2 
P2 
P2 
»2 
P2 
P? 
P2 
o2 
P2 
P2 
»2 
P2 
92 
P2 
38>2 
P2 
»2 
P2 
»2 
°? 
P2 
'2 
P2 
»2 
P? 
p? 
P2 
»2 
P2 
P2 
P2 
P2 
»2 
P2 
P2 
>2 
P2 
P2 
P2 
P2 
»2 
P2 
P2 
92 
P2 
P2 
P2 
»2 
P2 
'2 
P2 
P2 
>2 
P2 
52 
P2 
P2 
P2 
P2 
»2 
P2 


54  P$(  2,3SGR*TH-100)=0 

55  CONTINUE 

56  CONTINUE 

57  CONTINUE 


*****    upouE    TRUTH    TABLE    FOR    GJ    ***** 

66 

00    67    CHN=1,CHNG 

TH=CHNGCP(CHN> 

IF(TH.GT.IOO)    GO    TO    58 

P$(1,BSGJ«TH)«1 

PS<2,BSGJ+TH)=0 

GO    T3    67 

68 

t>$(?,BSRj4-TH-100»=0 

67 

CONTINUE 

30    T3    12 

♦  *** 

GJ    IS    REDJNDANT    ***** 

100 

LIS=LISUCC(3J1 

on    110    LS=l,LTS 

T  =  T  +  1 

!n:*MX(GJ,ISUCC(LS,GJI  1=0 

110 

CONTINUE 

OH    120    TH=l,N2 

120 

P$C2tBSGJ*TH)=0 

CALL    SUBNET 

GO    TO    10 

**** 

SJ    AND    ITS    SUCCESSORS    ARE    REOUNOANT    ***** 

310 

CONTINUE 

LIS=L!SUCC(GJ) 

00    350    LS=ltL!S 

GS=ISUCC(LS,GJ) 

T  =  T«-1 

lN:$^X(5JtGS)=0 

LISS=LTSJCC(GS) 

00    340    LSS=1,L!SS 

t  =  t^! 

INC*NX(GS,ISUCC(LSStGSH=0 

340 

continue 

350 

CONTINUE 

CALL    SUBNET 

CALL    PVALUE 

GO    TO    I 

*****  CONNECTIONS  Tn 
80  00  82  TH=NN2,NPN2 
82  P$<2»THI»0 

GO  TO  12 
90  IF(T.EO.TS)  RETURN 

CALL  SUBNET 

GO  TD  10 

END 


SJ  CAN  NOT  BE  REMOVED  ***** 


P2  76330 
^2  76400 
"2  76500 
P2  76530 
P2  76700 
»2  76800 
P2  76900 
P2  77030 
»2  77100 
P2  77230 
*2  77300 
P2  77400 
P2  77533 
P2  77630 
P2  77700 
P?  77830 
°2  77930 
P?  78033 
P2  78100 
P2  78200 
P2  78333 
P2  78403 
P2  78530 
P2  7B600 
P2  78700 
??  78830 
P2  78900 
~>2  79030 
P2  79100 
P2  79230 
92  79300 
»2  79430 
P2  79500 
°2  79600 
P?  79700 
P2  79803 
P2  79930 
P2  90333 
P2  80100 
P2  80230 
P2  80333 
P2  80430 
P2  80500 
P2  80600 
P2  80700 
P2  80800 
P2  80930 
P2  81000 
P2  81130 
=>2  81200 
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